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Sep LIBRAR.SRCJGETCMD.B32;1 (1) V 


; 1 001 MODULE LIB_GETCMD ( Get LIBRARIAN command Line 

; § O6 LANGUAGE (OL 15536) « 

3 00 IDENT = 'V04=-000' 

3 4 0004 = 

; 5 0005 1 BEGIN 

3 6 Bone 1 

; ? 0007 1! 

. 8 0008 1 lear area eee e eee EERE RAE EEA E EERE A EEE E TERETE RETA A TEER E EERE 
; 0009 1 !* « 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; i Big i x ALL RIGHTS RESERVED. * 
; ; * 
; 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; * 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
Re Lg 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 3 id : :* TRANSFERRED. * 
° .* * 
“oe 3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: $6 Boss 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; si o05z ; CORPORATION. * 
: '® * 
. “2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; ee 0027 1 !* * 
; 2 0028 1 !« * 
MH 29 0029 1 Lee RRR AEEA AAA eee ee 
a 0030 1 

tae 0031 1 !++ 

; mR OO3¢ 1! 

[ae 0035 1 ! FACILITY: Library command processor 

; 34 0034 1! 

;. 2 0035 1 ! ABSTRACT: 

; 0036 1! . 

's 0037 1! The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 

 - 0038 1! command. It utilizes the Librarian procedure set to perform 

: 0039 1! the actual modifications to the Library. 

; 40 0040 1! 

; 41 0041 1 ! ENVIRONMENT: 

; 62 0042 1! : 

s #3 0045 1! VAX native, user mode. 

: (44 0044 1! 

3; 0045 1 !-- 

; © 0046 1! 

: 67 0047 1! 

:; 6448 0048 1 ! AUTHOR: Benn Schreiber, CREATION DATE: 11-June-1979 

: 49 0049 1! 

; 50 0050 1 ! MODIFIED BY: 

a) 0051 1! bo 

; 26 R936 1: v03-007 GJA0085 Greg Awdziewicz 27-Jun-1984 

hh 0053 1! - Don't overwrite Lib$gl_type and default extensions 

= 0054 1! which were set because of a library-type qualifier just 

; oS 0055 1! because an extension was specified on the library file 

; B28 7 3 specification. (Important especially for inserting into 

= 0057 1! a shareable image Library.) 


tsi" 
; 58 
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v03-001 
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GJA0075 Greg Awdziewicz 10-Feb-1984 
- Use the new improved b 18or ne sean with multiple 
st — file and searchlist capability. Remove uses 
of related filename nameblock. 


MCNO145 Maria del C. Nasr 07-Feb-1984 
Add qualifier /DATA with keywords REDUCE and EXPAND 
to replace /COMPRESS=REDUCE. We will share the same 
flags, and routines originally used with /COMPRESS. 


JWT0115 Jim Teague 27-Apr-1983 

Made /SQUEEZE default. 

JWT0103 Jim Teague 05-Apr-1983 

New CLI interface. 

JWT0056 Jim Teague + rs ang 

Implemented DCX interface for /COMPRESS=REDUC 
RPG0301 Bob Grosso 27-Apr-1982 


Add subtitles to Listing and fix /QUAL=""" so the. 
rrr sree message has the name of the qualifier 
illed in. 
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07000 Declarations 12-80 8- 1 3e 3:38:08 LIBRAR.SRCJGETCMD.832;1 . (2) 
; 8 Boge 1 ZSBITL ‘Declarations’; 
; & 085 1 
;. a 0086 1 LIBRARY 
; BB 0087 1 *SYSSLIBRARY:STARLET.L32'; 'System data structure definitions 
; 89 0088 1 LIBRARY 
; 0089 1 *SYSSLIBRARY:CLIMAC.L32'; 'Command Language data structure defs. 
; Wi 0090 1 LIBRARY 
; 9 0091 «+1 *SYSSLIBRARY: TPAMAC.L32'; 'Table driven finite state parser macros 
; F $095 1 REQUIRE 
; 494 0093 1 *PREFIX'; 'Macro defs, etc. 
5; 0277 1 REQUIRE 
3 38 8 ie : *LIBDEF'; ‘Librarian command interface definitions 
; #98 P 0567 1 sd ( "MODULES', ‘BEFORE’, ‘COMPRESS’, 'CREATE', ‘CROSS_REFERENCE', ‘DATA’, 
; 99 P 0568 1 "DELETE', ‘EXTRACT’, ‘FULL’, ‘GLOBALS*, ‘HELP’, ‘RISTORY', 
: 100 P 0569 1 ‘INSERT’, ‘LIST’, 'LOG', "MACRO', ‘NAMES’ 
; Wi P 0570 1 ‘OBJECT’, ‘ONLY’, ‘OUTPUT’, "REMOVE', ‘REPLACE’, "SELECTIVE_SEARCH’, ‘SHARE’, 
3 106 0571 1 "SINCE', "SQUEEZE*, ‘TEXT’, ‘WIDTH’, 'P1', 'P2’ ); 
; 3 berg 1 
: 104 05735 1 LITERAL g 
s WS 0574 1 ualtabsiz = 24, _ : 
; 106 0575 1 dbsize = fdb$c_size + nam$c_bin !Define total size of an FDB 
s ior 0576 1 + (2 * nam$c_maxfss); 
: 108 0577 1 
: 109 0578 1 EXTERNAL ROUTINE . 
: 110 0579 1 Lib$Scvt_dtb : addressing_mode(general), 
3612124 0580 1 cli$get_value, 
: 112 0581 1 cli$present, : : 
“Be bh b28¢ 1 Fist tinendest ‘Return etre descriptor for filename 
> 114 Bae 1 ib_get_mem, ‘Allocate virtual yy? 
3 399 0584 1 LibScyt_time : ADDRESSING MODE (GENERAL) ‘convert ascii time to binary 
; 16 0585 i Lib$filé_scan : ADDRESSING MODE (GENERALS, iF ind wild-card files 
. Pee Beee 1 LibStparSe : ADDRESSING MODE (GENERAL), ‘Table driven parser 
: 118 0587 1 Lib$Slookup_key : ADDRESSING_MODE (GENERAL), !'Look up qualifier keyword 
> «6119 0588 1 Lib_free_mem; !Deallocate virtual memory 
: 120 0589 1 
; 121 0590 1 FORWARD ROUTINE 
: 122 0591 1 clearsqueeze, ‘Clear local squeeze bit 
3; 123 Beas 1 setsqueeze, 'Set local squeeze bit ; 
; 124 0593 1 selectcrosref, ‘Select cross reference options 
; 125 0594 1 scan_options, 'Scan create/compress/data options 
: 126 0595 1 call_tparse, ‘call Lib$tparse 
s Yer 0596 1 syntaxerr, ‘report tparse syntaxerr : ag 
3 18 0597 1 value_req, 'Set flag that a value is required on create/compress option 
3: 129 0598 1 set_macro_type, '/MACR 
: 130 0599 1 set_object_type. ' /OBJECT 
s 131 0600 1 set_help_type, '/HELP 
: 136 0601 1 set_text_type, '/TEXT 
: 15 pone 1 set_shr_fype, ' /SHARE 
: «134 0603 1 set_lib_type, ‘Does the work for set_xx_type 
: 135 604 1 Listonl ynods . ' /ONLY 
3 136 605 1 setmodulename, '/MODULES 
: 137 0606 1 compressfile, '/COMPRESS 
; 138 607 1 createlib, '/CREATE 
; #139 08 1 datareduce, '/DATA 
: 140 0609 1 extractfile, '/EXTRACT 
3 (141 0610 1 deletemodules, '/DELETE 
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Declarations 984 12:38:0 LIBRAR.SRCJGETCMD.832;1 (2) 
0611 setlistfile, '/LIST 

setlistwidth, '/WIDTH 

Fesevenseeels. ' /REMOVE 

outputfile, '/OUTPUT processor 

inputifile, ‘Primary input file processor 

input2file !Secondary input file processor 

9st nese list, ‘Extract args from qualifier . 

iléscantruact, ‘Action routine for successful file scan 

filescanflsact, ‘Action routine for unsuccessful scan 

initialize_fdb, ‘Initialize an FDB 

date_parse, 'Parse date for /BEFORE and /SINCE 

since_date, 


‘Allocate file descriptor block 


clierror : novalue; ‘Process CLI errors 


EXTERNAL 
'Date from /BEFORE 
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; 14 1 
; 416 1 
; «6146 1 
3; 16 1 
; 14 1 
3s 14 1 
; (146 1 
; (14 1 
3; 1 
; 1 
. 32 1 
Paes 1 
; 1 
;. 33 1 
3s 3 1 
3; 1 1 
iz } 
; 1 Lib$since_date : BBLOCK, ‘Date from /SINCE 
; 1 Lib$Sal_creopts : VECTOR C,LONG), ‘Array of create option values . 
; 1 Lib$gl-cre8flags : BITVECTOR, ‘Bit flags for specified create/compress options 
; i? : ti bsatatistuid. rc C) _trerery List Line 
; type 'Librar e 
; 16 1 LibSgl-modl {st VECTOR $i iListhead tor “List only'’ name List 
1 BSR] TiRtaIsaedeeat  YeerBs B83 tfaanaed for ute, ues 
: 16 0637 1 Lib$gl-objsyrml : VECTOR cei, iListhead for object module symbol removal 
1 BR] HBRRISHRIRERT:yeez08f2) Se ye a 
3 _ctlmsk : " ‘Control mask for rarian 
t 7 0640 1 LibSgl-Libfdb REF BBLOCK, 'FDB for Library file 
o- TF 0641 1 Lib$gl_outfdb : REF BBLOCK, 'FDB for output file 
s 37 0642 1 Lib$gl_lisfdb : REF BBLOCK, 'FDB for Listing file 
; if 06435 1 Lib$gl_tmpfdb : REF BBLOCK, !FDB for temporary use P 
.. UF 0644 1 Lib$Sgl_inplist : REF BBLOCK, 'Listhead for input files List ’ 
; HA need ! t {b_mac_de text : eet K, jDefault gytene tes for macro source files 
3 ib_obj_defext : . . t...for object files 
; 7 0647 1 Lib_hip_defext : BBLOCK, '...for help files 
SF 0648 1 Lib_txt_defext : BBLOCK, t...for text files | ; 
; _shr_defext : LOCK; :eeefOr shr img st libraries 
H 34 ; Lib_shr_def BBLOC ewe hr i b Lib 
; 0651 1 GLOBAL . 
; 2026 1 Lib$gl_tpindex, 
; «(184 0655 1 Lib$gl_valreq, 
3 H +4 9638 : Lib$gl_creflags : BLOCK (1); 'Cross reference flags 
; 187 0656 1 OWN 
; 188 0657 1 aS 
: 189 0658 1 qual_table : vector [ qualtabsiz, long ] initial 
; 190 0659 1 ( sd_before, sd_compress, sd_create, sd_cross_reference, 
3 19 0660 1 sd_data, sd.delete, sdextract, sd_full, ; 
: 192 0661 1 sd_globals, sd_help, sd_history, sd_list, sd_log, sd_macro, sd_names, sd_object. 
3 it? pe8 ' sd_only, sd_remove, sd_Share, sd_since, sd_text, sd_feplace, sd_insert, Sd_squeeze ), 
3 195 0664 1 bit_table : vector C gualtabsiz, byte J] initial ( byte 
5; 1% 0665 1 ( $bitposition(lib$v_before) ,Sbitposition(lib$v_compress), 
; 197 0666 1 S$bitposition(Lib$v_create) ,S$bitposition(lib$v_cross), | — 
: «198 0667 1 $bitposition(Lib$v_data) ,Sbitposition(lib$v_delete) ,$bitposition(lib$v_extract), 


v 
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1a-Sep- 13be $3; 38:03 LIBRAR. Bee icet cmb b3ec4 < (2 vO. 
Sbitposition(lLib$v_full), opt eposttion( tthFy yr bals) ,$bitposition(lib$v_help), 
$bitposition(Lib$v_history) ,Sbitposition(Lib$v_Llist) ,Sbitposition(lib$v~log), 
$bitposition(Lib$v_ perre? sbi tpos it ont | iesu, names) ,$bi itposition(lib$v_ object), 
$bitposition(lib$v_only) § grees ition(lib Y- Femove) s$bitposition(libsv— shrstb), 
S$bitposition(lib$v “orntes Sbitposition(Lib$Sv_text), $bi itposition(lib$v_replace), 
Sbitposition(Libsy= insert ee toes squeeze) )), 


call_table : vector C qualtabsiz, Long ] initia 
before_date, compressfile, esi bes Pt selectcrosref, 
doteretuce, Sei gtonedutes pettects® ile, 0, 0, 
set_help_type, 0, setl stfi ile, 0, set_macro_type, 0, set phe gf type, Listonlymods, 
removesymbols, set cok hee. since_date, seft_text_type, 


crf_table : $Llib Tht ot te a 

( SYAB » ( VALUE, 1), ( MODULE, 2) ), 
opt_table : $lib bpkey table 

CA » ( NONE, 1) ), 


Other OWN storage 
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List_desc syranie fesst toter. 


squesze. flag : TTAL ‘Cleared if /NOSQUEEZE. 


def_Lib_extn BLO ck dsc$e -s.blnJ, !Default extension for Libraries 
def_ fitcentn hese dsc$c_s_bln] ‘Default extension for other files 
lastfdb': ‘Pointer to Last FDB allocated 
prevfdb : REF BBLOCK: ‘Pointer to previous of Last 
Sysoutputdesc : descriptor (*SYSSOUTPUT:"), 'String descriptor for SYSSQUTPUT 
modulenamedesc : dynamic_descriptor, ‘String descriptor for /MODULES= 
cliworkptr, ‘Pointer to cli work area 
filesnot found, ‘Count of not found files 
token_desc : dynamic Seer eter 

crf_bysymbol : descriptor ( SYMBOL"), 'Cross reference by symbol 
oer” _byvalue : descriptor (‘VALUE’) 'Cross reference by value 
crf_bymodule : cooer tint te (*MODULE'S, 'Cross reference by module 
crf_bynone : LONG INITI (0), ‘End of crf options 
all options : mete he ol ("ALL ), ‘ALL of the options 
no options : descri tor ("NONE"), 'None of the options 
end_options : LONG INITIAL (0), '‘End of all/none 
tpa_block : BBLOCK DS eee Length0O), 'tparse block 
tpa_desc : "REF BBLO ‘pointer to current string descriptor 
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3 ny Or ! XSBTTL 'TPARSE tables’; 

: 244 at; 1! 

; oF grt? ! TPARSE tables to parse /CREATE=() qualifier values. 

: <3 0715 1 SINIT_STATE (create_states, create_keys); 

: 248 0716 1 

: 249 P 0717 1 $SSTATE ( 

; 250 P0718 1 (*BLOCKS' ,tpas exit,value_req,lib$c_opt_blks, Lipset tpindex,true) 

ae +) P0719 1 (*GLOBALS' ,tpaS_exit,value_req,lib$c_opt_gbls, LibS$gl_tpindex,true), 
: S26 P0720 1 ("MODULES',tpa$_exit,value_req,lib$c_opt_mods, $i oSat tpindex,true), 
; P0721 1 (*KEYSIZE* ,tpa$_exit,value_req,lib$c_opt_ksz, Libs@ Epindex, true) 

; 254 P 07 § 1 ("HISTORY ,tpa$_exit,value_req,lib$c_opt_luhs, Lib gt tpindex, true), 
3 go? P 07 1 (*VERSION' ,tpa$_exit,value_req,lib$c_opt ver, Lib$gl_ftpindex,true), 
3 528 P0724 1 (tpa$_lambda, tpa$_exit,syntaxerr, » 7Lib$_badkey), 

3 gor 0725 1 a3 

; 258 B7S8 1 

; $28 0727 1 

; 260 0728 1 SINIT_STATE (compress_states, compress_keys); 

; 261 i094 1 

3 o6¢ P 0730 1 S$STATE (, 

3; <6 P0731 1 ("BLOCKS’ ,tpa$ exit, value_req,lib$c_opt_blks, Uippat tpindex, true) 

3 364 P 07 ¢ 1 ("GLOBALS' ,tpa$_exit,value_req, Lib$c_opt_gbls. Lib$gl_tpindex,true), 
: 265 P 07 1 (*MODULES* ,tpa$_exit,value_req,lib$c_opt_mods, $iBSol tpindex,true), 
3 $96 P 0734 1 (*KEYSIZE',,tpa$_exit,value_req,lib$c_opt_ksz, Libsg tpindex, true) 

; 267 P0735 1 (*HISTORY’, tpa$_exit,value_req,lib$c_opt_luhs, Lib gt tpindex, true), 
; 268 P 0736 1 (* VERSION’ ,tpa$_exit.value_reg,lib$c_opt_ver, Uibss tpindex, true) 

; 269 P 0737 1 ("KEEP’, tpas_exit,value_req,1“lib$c_opt_keep, Lib gt cre8flags, false), 
: 270 P 0738 1 ("REDUCE’, tpa$_exit,value_req,1*libSc_opt_dex, LibSgl_cre8flags, false), 
; 271 P0739 1 (tpa$_lambda, tpa$_exit,syntaxerr,,, Lib$_badkey), 

3 ste 0740 1 dy 

; 2? 0741 1! : 

3; €r Bree 1 ! TPARSE tables for /DATA qualifier options 

S an 0743 1! 

; 276 0744 1 SINIT_STATE (data_states, data_keys); 

3; 27? 0745 1 

: gre P 0746 1 SSTATE (, ; 

3; ey P 0747 1 ("REDUCE’, tpa$_exit,value_req,1*lib$c_opt_dcx, Lib$gl_cre8flags,false), 
: 280 P 0748 1 ("EXPAND', tpa$_exit,value_req,,,false 

: 281 P 0749 (tpaS_lambda, tpas_exit,syntaxerr,,, Lib$_badkey), 
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v04=- L1IB_GET_ COMMAND 14-Sep-1984 12:38:0 LIBRAR.SRCJGETCMD.832;1 (4) 
3 oe re | ZSBTTL *LIB_GET_COMMAND'; 
3 He] 7 § 1 GLOBAL ROUTINE Lib_get_command (arglist) = 
; 28 Pee BEGIN 
; 288 0755 
; 289 B28 e+ 
; 290 07 : This routine initializes the CLI result parser and then re-calls it for the 
; 291 0758 ! processing of each command. 
3; 2 0759 ! 
; 2 0760 ! Inputs: 
> 294 0761 : 
3 32 p76 arguist pointer to the argument List that invoked the image 
s evr 0764 ! Outputs: 
; 298 0765 : : 
; 299 0766 : the command is parsed, data structures filled in. 
; 300 0767 ‘ 
3 301 0768 oes 
; oe 0769 MAP : 
; 30 0770 § arglist : REF BBLOCK; 
; 304 0771 LOCAL 
; 305 brie 2 status; 
: 306 0773 2 : 
3 307 0774 2 lastfdb = Lib$gl_inplist; Init the Last FDB pointer 
: 308 0775 2 preytdb = Lib$Sgl_inplist; ! and the prev. fdb pointer 
: 398 p78 § ib$Sgl_inplist = 0; 'Init input FDB Listhead 
3s 3 0778 2! Initialize the library type as ‘‘unknown’’ but set the defauit file 
3 $16 0779 2 ! extensions as if the library type is ‘‘object’’, which will be the 
: 314 Bree 2 default if no other mechanism changes it: 
: 315 078 : set_lib_type (lbr$c_typ_unk, Lib_obj_defext); 
; 316 0783 
3 Si7 0784 2! 
; 318 0785 2! Initialize the name List queue headers 
; a 0786 ! : 
: 320 0787 Lib$gl_modlist (0) = Lib$gl_modlisl; 
3 Sel 0788 Lib$gl_modlist C1] = Lib$gl-modlisl; 
: $§ $434 Lib$Sgl_modxtrit [OJ = Lib$gl_modxtrl; 
3 te 790 Lib$gl_modxtri C1) = Lib$gl-modxtri; 
: 324 0791 Lib$gl_modup 0] = Lib$gl_modupdl; 
3 Ses 1454 Lib$gl_modupdl (1) = tipsgt modupd |; 
: 326 079 Lib$gl_objsyrml (0) = Lib$Sgl_objsyral; 
: $f 794 LibSgl_objsyrml (1) = $i bSot objsyrml; 
; 8 795 Lib$gl"delmodl ; = Lib$gl_delmodl; 
5 $3 ta Lib$gl"delmodlt C1] = Lib$gl=delmodl; 
; 331 0798 2! 
5 3% 0800 ; Loop through most qualifiers, setting the appropriate bit 
3; ioe 801 incr i to qualtabsiz - 1 do : . 
3 3ae th. if (LibSgl_ctlmskC0O,.bit_tablel.iJ,1,0] = cli$present( .quat_tablel.i] )) 
; #9 Babz then | 
: $ He If an address of a routine is supplied, call it. 
; 340 080 if .call_tablel.i] neq 0 
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yhe=000 L1B_GET_COMMAND 127868=1 382 9353850 LIBRAR.SRCJGETCMD.B32; 9 4) 
; FA B08 then 
; tg 59 (.call_tablel.iJ)(); 
: ez Bi) 5 if .LibSglctUmskCl ibs ] 
; ° _ctlmskClib$v_squeeze 
345 BIg 2 then 
: re 1 setsqueeze() 
3 36 14 
: 348 15 clearsqueeze(); 
: 349 pais ; 
; 350 081 if cli$present(sd_width) 
ey) 0818 then 
5 26 0819 setlistwidth(); 
; 2 0820 
; 354 0821 ' 
i Bee 08 ¢ ! Get Library file name 
; 356 08 : 
s Zor 0824 cli$get_value(sd_p1, token_desc); 
: 358 0825 inputi file); 
: 359 0826 
; 360 0827 ! 
; 361 0828 ! Get output file name 
; 306 +194 ! 
; 0830 cli$get_value(sd_output,token_desc); 
3; 364 0831 output file); 
5 363 sti 
; 366 083 filesnotfound = 0; 
$ sor 0834 ¢ 
; 368 0835 IF NOT Ct total ctlmsk Clib$v_compress) ‘Unless compress 
; 369 0836 3 OR .LibSgl_ctlmsk ClLib$v_datal ! or data 
; 2f0 0837 ; OR .Lib$Sgl_ctimsk Clib$v_extract) ! or extract 
; or 0838 OR .Lib$gl_ctlmsk Clib$v_cross] ) ! or cross ref 
; oT 0839 2 THEN 
; oF 0840 WHILE cli$get_value(sd_p2, token_desc) DO 
: 374 0841 BEGIN ‘ . 
s 30 ones Paes C1 ctlmsk Clib$v_selective] = false; 'Clear selective bit 
: 376 0843 3 if cliSpresent(sd_modules) 
, pre 0844 3 then 
; 378 0845 3 setmodulename(); 
3 379 0846 3 input2efile(token_desc); ; 
; 380 0847 3 IF .LibSgl_ctlmsk Clib$v_selective) 'If selective search was seen 
:; «381 0848 3 THEN Lastfdb Cfdb$v_setsel) = true; 
5; Jee 0849 2 END; 
; 383 0850 F a 
; «384 th IF .Lib$Sgl_inplist EQL 0 'If all files specified 
: 385 S26 AND .filesnotfound NEQ 0 ' were not found 
; 386 085 THEN IF ss0eat itlmsk Clib$v_create] ‘If creat ing 
; 387 0854 THEN RETURN false ! then noth ng to do . 
; $e0 Baca 2 ELSE IF NOT oltheglceimas fies deleted, Lies : otherutse, f no other function selected 
3 ‘ _ctlms ib$v_extrac 
; 390 0857 AND NOT “Libsglrctimsk Lib$v_list] 
; 391 0858 AND NOT .Lib$gl_ctlmsk tipevenenoyed 
; 39 0859 AND NOT .Lib$gl_ctlmsk Clib$v_data 
3; WF 0860 AND NOT .Lib$Sgl_ctlmsk Clib$v_compress] 
3: 394 Obes AND NOT .Lib$Sgl_ctlmsk Clib$v_cross : 
: +4 bbe8 THEN RETURN false; ! then nothing to do 
5 ow 0864 IF .Lib$gl_inplist NEQ 0 'If input files are present 


g 


ee ae ae ae ee 


M 2 
LIB_GETCMD 16-Sep AX-11 Bliss-32 et oe P G 
yOe=000 L1B_GET_ COMMAND 14-Sep eat h 93: 33: 03 LIBRAR. SRCIGETCMD.B32; 1 vs (4) 
; 398 0865 AND NOT .Lib$gl ct lmsk Clib$v_insert] ! and did not say insert l 
: 23 306 THEN LibSgl_ctimsk Clib$v_replace] = LibSgl_ctlmsk Clib$v_insert) = true; t th hen make sure this isar. 
5 401 0868 i Terminate parse 
(2 0890 ~~ (d : rm f Libuextn, LibSgl Libfdb Cfdb$|_defext)) ; 
$ sc$c_s_bln, de extn 
3 404 0871 IF tipegt> ctlisk Hie Ve Lemna or “Libegt. ctlmsk Cli “seleted: 'If insert, remove 
; 405 par6 OR . lib “ctlmsk Clib$v_remove ‘or delete 
: 406 087 THEN altscate. fdb (LibSgl_tmpfdb); ‘Allocate FDB in case 
: 407 0874 ‘old format Library 
; 408 0875 if ~Lib$Sgl_creflags EQL 0 'If /CROSS= 
; 409 0876 ih ll Lib gl_ctlmsk Clib$v_cross] = false; ! then disable it 
; 410 0877 RETURN true 
3 «411 0878 1 ENDS. 


-TITLE LIB GETCMD 
-IDENT \v0%-000\ 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 


U.2: -BLKB 0 
53 4B 43 4F 4C 42 00000 UEBASKEVET 
04: ASCII \BLOCKS\ : 
FF 00006 BYTE =1 : 
00007 ; TPASKEYSTO 
U.12: -BLKB 0 
53 4C 41 42 4F 4C 47 00007 ; TPASKEYS 
U.14: ASCII \GLOBALS\ : 
FF OQOO0E BYTE =1 3 
0000F WS radii 4y 0 
53 45 4C 55 44 4F 4D OQOOOF ; TPASKEYST 
U.24: . II] \MODULES\ : 
FF 00016 -—BYTE -1 ; 
00017 ; TPASKEYSTO 
U.32: -BLKB 0 
45 SA 49 53 59 45 4B 00017 ; TPASKEYST 
U.34: eASCII \KEYSIZE\ 3 
FF OQOO1E . -1 3 
OOO1F ; TPASKEYSTO 
U.42: -BLKB 0 
59 52 4F 54 53 49 48 OQOOTF ; TPASKEYST 
U.44: eASCII \HISTORY\ 2 
FF p00s6 “ -1 3 
00027 ; TPASKEYSTO 
U.52: -BLKB 0 
4—E 4F 49 §3 52 45 56 00027 ; TPASKEYST 
U.54: eASCII \VERSION\ 3 
FF 68 bce “BYTE =1 3 
FF QOO2F ; TPASKEYFILL 
U.67: -BYT -1 3 
00030 ; TPASKEYSTO 0 


0.69: — .BL 
53 48 43 4F 4C 42 00030 ; TPASKEYST 
U.71: ASCII \BLOCKS\ : 


<- 
Ra 


i: 


ied 
LIB_GET_ COMMAND 


53 


53 


45 


59 


4E 


4C 


45 


SA 


4F 


45 


45 


ah 


41 


4C 


4F 


49 


43 


43 


4E 


42 


55 


54 


50 


55 


55 


41 


44 


59 


53 


45 


ae 


ah 


50 


4F 


45 


45 


45 


45 


58 


F300 


N 2 
16-Sep-1984 01: AX-11 Bliss-32 V 
14- Sep-19 4 9}: 33: 03 PIBRAR SREIGETCMD 
BYTE -=1 
ae S TPASKEYETO 
0.79: BLK 
00037 ; TPASKEYST 
0.81: ASCII \GLOBALS\ 
POOR E -—BYTE =1 
F ; TPASKEYSTO 
U.89: BLK 0 
— bore SASCII \MODULES\ 
0004 .BYT -1 
00047 ; TPASKEYST” 
U.99: -BLKB 0 
00047 ; TPASKEYST 
U.101: .ASCII \KEYSIZE\ 
0004E .BYT -1 
OOO4F ; TPASKEYSTO 
U.109: .BLKB 0 
OOO4F ; TPASKEYST 
U.111: ASCII \HISTORY\ 
00056 .BYT -1 
00057 ; TPASKEYSTO 
U.119: .BLKB 0 
00057 ; TPASKEYST 
U.121: .ASCII \VERSION\ 
0005E -—BYTE =1 
QOOSF ; TPASKEYSTO 
U.129: .BLKB 0 
OOOSF ; TPASKEYST 
U.131: .ASCII \KEEP\ 
00063 BYTE -=1 
00064 ; TPASKEYSTO 
U.139: .BLKB 0 
00064 ; TPASKEYST 
U.141: ASCII \REDUCE\ 
0006A BYTE -=1 
00068 ; TPASKEYFILL 
U.154: .BYT -) 
Q006C ; TPASKEYSTO 
U.156: .BLXB 0 
0006C ; TPASKEYST 
U.158: .ASCII \REDUCE\ 
0007 -—BYTE -=1 
00075 ; TPASKEYSTO 
U.166: .BLKB 0 
00073 ; TPASKEYST 
U.168: .ASCII \EXPAND\ 
00079 BYTE -1 
QOO7A ; TPASKEYFILL 
179: BYTE =1 
-PSECT _LIBSSTATES,NOWRT, 
00000 CREATE_STATES:: . 
00000 ; TPASTYPE 
U.5: eWORD -3328 


SHR, 


-0- 
D.B 


PIC,1 


3 


7 
2; 


4 


2 
1 


3 
LIB_GETCMD 1b-se -1984 AX-11 Bliss-32 V4.0-74 
vou=000 LIB_GET_ COMMAND 14- Sep-1984 3: 33: 03 LIBRAR.SRCJGETCMD.832; — ch 


F302 002A sibasrveé. 


01 00002 TBASFLAGs2 ; 

00000001 00003 ; TPASPARAM ? j 

U7: LONG 1 : : 

00000000v 90007 siPASACTION sensed tenes Bonk 3 

<< “U.8>-4> : : 

00000000" 00008 ; 1S panne + sao aaeune mii : 

4 << t X-U.9>=4> : 3 

00000000 0000F , TRenaee : 

FFFF 00013 UF PASTARGET ; 

U.11: WORD 1 ; ; 

F301 00015 ; TPASTYPE : 

U.15 «WORD -3327 : : 

01 00017 + TPASFLAGS2 ; 

U.16: .BYTE 1 3 : 

00000001 00018 ¢ TPASPARAM 3 

U.17: LONG 1 : ° 

00000000v oo01c » 3 iPASACTION ; 

U.18: - LONG <<VALUE_REQ=-U.18>-4> : 3 

<ssamatie Sacer jiegeanon se LIBSGL_TPINDEX-U.19>=4 

i << ‘s “U.19>-4> : 3 

00000001 00024 ; TPASMASK : 

U.20: -LONG 1 : 3 

FFFF 00028 ; TPASTARGET | ; 

U.21: Wl R =] g | : 

v.63: -3326 : : 

01 0002¢ siPASFLAGSe ' : 

00000001 0002D ; TPASPARAM 3 

U.27: LONG i : ; 

00000000v 00031 y TPASACTION 3 

U.28: .LONG <<VALUE_REQ-U.28>-4> : : 

U.29: LONG <<LIBSGL_TPINDEX-U.29>-4> 3 : 

00000002 00039 ; TPASMASK 3 

U.30: -LONG 2 : 3 

FFFF 0003D UF PASTARGES : 

U.31: WORD -1 : 3 

F303 0003F sTRASTYPE 3 

U. 3325 : : 

01 00041 Y TPASFLAGS2 3 

U.36: BY 1 : 3 

00000001 00042 ; TPASPARAM ; 

U.37: .LON 1 : : 

00000000vV 00046 ;TPASACTION 3 

U.38: .LONG <<VALUE_REQ-U.38>-4> : : 

00000000* 0004A UFPASADDR ; 

U.39: LONG <<LIBSGL_TPINDEX-U.39>-4> : : 

00000003 O004E ; TPASMASK : 

v. 40: LONG 3 ; 3 

FFFF 00052 ; TPASTARGET : 

b. WOR -1 : é 

F304 00054 : TPASTYPE 3 
-3324 : 


00000000* 00035 ; TPASADDR % | 
0.45: .wO 
01 00056 Y TPASFLAGSS 


L1B_GET_ COMMAND 


00000001 
00000000v 
00000000* 
00000004 
FFFF 
F305 
01 
00000001 
00000000v 
00000000* 
00000005 
FFFF 
97F6 
01 
0086110C 
00000000v 
FFFF 


F300 

01 

00000001 
00000000Vv 
00000000* 

00000000 

FFFF 

F301 

01 

00000001 


ses 1:88 


14-Sep-19 


00057 ; 
00058 
0005F 
00063 
00067 
00069 
00068 
0006C 
00070 
00074 
00078 
0007C 
0007E 
00080 
00081 
00085 ; 
00089 


00088 
0008C 


0008C 
QOO8E ; 
0008F 
00093 
00097 
00098 
0009F 
OO0A\ 
000A3 
QO0A4 ; 


U.46: BYTE 


0.64: LON 
:iPASACTION 


N 
; TPASTARGET 
-66: WORD 


AX=-11 Bliss-32 V4.0=-742 
LIBRAR.SRCJGETCMD.B32;1 


1 

1 

<<VALUE _REQ=U.48>=4> 
<<LIBSGL_TPINDEX=U.49>=4> 
4 


<<VALUE_REQ-U.58>=4> 
<<LIBSGL_TPINDEX-U.59>-4> 
5 

-1 

-26634 

1 

8786188 
<<SYNTAXERR=U.65>=4> 


-BLKB_ 1 
COMPRESS Sle | 


sTRASTYPE 
iPASFLAGSe. 


U. 


ce 
00-000 ~~ nv WOUNUNUND ~ 
FASS ODNEPSMNS Pw eg 
. 
fon 
oO 
z 


<<VALUE_REQ-U.75>=4> 
<<LIBSGL_TPINDEX-U. 76>-4> 


-3327 


<~— 


eee Pe ee Se Se Se Oe Oe Oe Oe Oe Oe Be BH ee BHO Oe Oe Oe Oe Oe OHO Oe HSH Se OHSS Se Se Se ee SH ee ee esas 


LIB_GETCMD -Sep-1984 01:53:1 AX=-11 Bliss-32 V4.0-74 
voe=000 LIB_GET_ COMMAND ~8ep 3b 2:38:0 LIBRAR.SR REIGETCMD. 85031 
tt ae 1 
| sateen eee U ipASACTION VALUE_REQ=U.85>=4 
. ar << _REQ*U.85>-4> 
Seabee: saat je oO one IBSGL_TPINDE 86>-4 
.06: <<L L. X=U.86>-4> 
00000001 O00B0 ; TPASMASK 
U.87: . LONG 1 
FFFF Q0O0B4 + pega , 
F302 O00B6 ; TPASTYPE 
U.92:  .WORD  -3326 
01 00088 4 ogee Sse ; 
00000001 00089 ; TPASPARAM 
U.94: _.LONG 1 
00000000V OO0BD ; TPASACTION 
U.95: .LONG <<VALUE_REQ-U.95>-4> 
00000000* 000C1 ; TPASADDR 
U.96: -LONG <<LIBSGL_TPINDEX-U.96>-4> 
00000002 OO00C5 ; TPASMASK 
U.97: «LONG 2 
FFFF QOOC9 ; TPASTARGET 
U.98: «WORD <1 
F303 O00CB ;TPASTYPE 
U.102: .WORD  -3325 
01 OOOCD ; TPASFLAGS2 
U.103:  .BYTE 1 
00000001 OO0CE ; TPASPARAM 
U.104: .LONG 1 
00000000V 000D2 ; TPASACTION 
U.105: .LONG <<VALUE_REQ-U.105>-4> 
00000000* 000D6 ; TPASADDR 
U.106: .LONG <<LIBSGL_TPINDEX-U.106>-4> 
00000003 OO00DA ; TPASMASK 
U.107: .LONG 3 
FFFF QOODE ; TPASTARGET 
U.108: .WORD -1 
F304 OO0EO ; TPASTYPE 
U.112: .WORD +3324 
01 OOOE2 ; TPASFLAGS2 
U.113: .BYTE 1 
00000001 OO0E3 ; TPASPARAM 
U.114: .LONG 1 
00000000V OO0E7 ; TPASACTION 
U.115: .LONG <<VALUE_REQ-U.115>-4> 
00000000* OO0EB ; TPASADDR 
U.116: .LONG <<LIBSGL_TPINDEX-U.116>-4> 
00000004 OOOEF ; TPASMASK 
U.117: .LONG 4 
FFFF QOOF3 ; TPASTARGET 
U.118: .WORD -1 
F305 OOOFS ; TPASTYPE 
U.122: .WORD -3323 
01 000F7 p ODE LAGS< 
U.123: .BYTE 1 
00000001 OO0F8 ; TPASPARAM 
U.124: .LONG 1 


esis 


L1B_GET_COMMAND 


00000000Vv 
00000000* 
00000005 
FFFF 
F306 
01 
00000000 
00000000v 
00000000* 
00000040 
FFFF 
F307 
01 
00000000 
00000000v 
00000000* 
00000080 
FFFF 
97F6 
01 
0086110C 
00000000v 
FFFF 


F300 

01 

00000000 
00000000Vv 


1besep-19 


14-Sep-19 
OOOFC ; TPASACTION 
U.125: LONG 
00100 ; TPASADDR 
U.126: .LONG 
00104 ; TPASMASK 
U.127: . LONG 
00108 ; TPASTARGET 
U.128: .WORD 
OO10A ; TPASTYPE 
U.132: .WORD 
0010C ML. rhage 
U.133: BYTE 
0010D ; TPASPARAM 
U.134: .LONG 
00111 ; TPASACTION 
U.135: . LONG 
00115 ; TPASADDR 
U.136: .LONG 
00119 ; TPASMASK 
U.137: . LONG 
0011D ; TPASTARGET 
U.138: .WORD 
OO11F ; TPASTYPE 
U.142: . WORD 
00121 ; TPASFLAGS2 
U.143: .BYTE 
00122 ; TPASPARAM 
U.144: LONG 
00126 ; TPASACTION 
U.145: LONG 
0012A ; TPASADDR 
U.146: .LONG 
0012E ; TPASMASK 
U.147: LONG 
00132 ; TPASTARGET 
U.148: . WORD 
00134 ; TPASTYPE 
U.149: .WORD 
00136 ; TPASFLAGS2 
U.150: .BYT 
00137 ; TPASPARAM 
U.151: .LONG 
0013B ; TPASACTION 
U.152: .LONG 
OO13F ; TPASTARGET 
U.153: .WORD 
00141 -BLKB 
00144 DATA at 
00144 ; TPASTYPE 
U.159: WORD 
00146 ; TPASFLAGS2 
U.160: .BYTE 
00147 ; TPASPAR: 
U.161: .LONG 
00148 ; TPASACTION 
U.162: .LONG 


Be 92:38:03 


AX-11 Bliss-32 V4.0-742 
LIBRAR.SRCJGETCMD.B32;1 
<<VALUE_REQ*U.125>=4> 
<<LIBSGL_TPINDEX-U.126>-4> 


<<VALUE_REQ-U.135>=4> 
<<LIBSGL_CRE8FLAGS-U.136>-4> 
64 

-1 


<<VALUE_REQ-U.145>=4> 
<<LIBSGL_CRE8FLAGS-U. 146>-4> 
128 

-1 

26634 

1 

8786188 
<<SYNTAXERR=-U.152>=4> 

-1 


<<VALUE_REQ-U.162>-4> 


L1B_GET_ COMMAND 


00000000* 
00000080 
FFFF 
9301 
01 
00000000 
00000000Vv 
FFFF 
97F6 
01 
0086110C 
00000000v 
FFFF 


0000+ 
0000* 
0000+ 
0000+ 
0000* 
0000* 


0000+ 
0000+ 
0000* 
0000* 


, 3 
16-Sep-1984 
14-Sep-1984 


0014F 


00157 
00159 
00158 
0015¢ 
00160 
00164 
00166 
00168 
00169 
00160 
00171 


00000 
00000 


00000 ; 


00002 
00004 
00006 
00008 
QO00A 
0000C 
0000C 
0000C 
0000E 
00010 


12:38:0 


AX=-11 Bliss-32 V4.0-742 
LIBRAR.SRCJGETCMD.B32; 1 


preneaoon 
U.163: .LONG <<LIBSGL_CRE8FLAGS-U.163>-4> 
; TPASMASK 
U.164: .LONG 128 
My baer H 
U.165: WORD <1 
; TPASTYPE 
U.169: .WORD -27903 
; TPASFLAGS2 
U.170: .BYT 1 
; TPASPARAM 
U.171: .LONG 0 
; TPASACTION 
U.172: .LONG <<VALUE_REQ-U.172>-4> 
3 TPASTARGET 
U.173: .WORD <1 
; TPASTYPE 
U.174: WORD  -26634 
; TPASFLAGS2 
U.175: BYTE 1 
3; TPASPARAM 
U.176: .LONG 8786188 
; TPASACTION 
U.177: LONG <<SYNTAXERR=U.177>=4> 
; TPASTARGET 
U.178: . -1 
~-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
CREATE_KEYS:: 
-BLK 
; TPASKEYO 
U.1: -BLKB 0 
; TPASKEY 
U.3: «WORD <U.2-U.1> 
: TPASKEY 
U.13: WOR <U.12-U.1> 
3 TPASKEY 
U.23: eWORD <U.22-U.1> 
3; TPASKE 
U.33: eWORD <U.32-U.1> 
; TPASKE 
U.43: eWORD <U.42-U.1> 
; TPASKEY 
U.53: eWORD <U.52-U.1> 
COMPRESS_KEYS:: 
BLKB 0 
: TPASKEYO 
U.68: -BLKB 0 
3; TPASKEY 
; TPASKE 
U.80: «WORD <U.79-U.68> 
; TPASKEY 
U.90: -WORD <U.89-U.68> 
; TPASKEY 
U.100: .WORD <U.99-U.68> 


Bee Oe Oe Oe Be BH Se Oe Be Be Se Se Se Be Se SH Be Se SH Se Se Oe Se Be Be Se Se SH Se Be Se Se ee Oe ee Be SH SESH Se SH Se SH Se ee HSH Oe SH Be oe 


sa 


LIB_SET, COMMAND 


53 


53 53 


45 43 4E 45 52 45 46 45 52 


54 


53 


45 


45 


45 


45 


SF 


45 


43 


4C 


4C 


52 


52 


54 


53 


54 


41 


41 


55 


42 


50 


0000+ 
0000+ 
0000* 
0000* 
0000* 
0000* 
44 GF 4D 
00000007 
00000000° 
46 45 42 
00000006 
00000000' 
4d 4F 43 
00000008 
00000000" 
45 52 43 
00000006 
00990009" 
4F 52 4 
0000000F 
00000000° 
54. 41 4h 
00000004 
00090000" 
4C 4 4&4 
0000000 
00900009" 
54 58 4 
00000007 
00990000" 
4c 55 46 
00000004 
00000009" 
ar 4C 4 
90000007 
0090000" 
ac 45 4 


1-sép-19 4 


1:53:1 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 9 3850 YMIBRAR SRe GETCMD.832;1 
00014 ; TPASKEY 
U.110: .WORD <U.109-U.68> 
00016 ; TPASKEY 
U.120: .WORD <U.119-U.68> 
00018 ; TPASKEY 
U.130: .WORD <U.129-U.68> 
OOO1A ; TPASKEY 
U.140: WORD <U.139-U.68> 
0001C DATA_KEYS:: 
-BLKB 0 
OOO1C ; TPASKEYO 
U.155: .BLKB 0 
QO01C ; TPASKEY 
U.157: .WORD <U.156-U.155> 
OOO1E ; TPASKEY 
U.167: .WORD <U.166-U.155> 
PSECT $PLITS,NOWRT,NOEXE,2 
00 P.AAB: ASCII \MODULES\ 
07 BLKB 1 
08 P.AAA LONG 
ADDR P.AAB 
P.AAD eASCII \BEFORE\ 
-BLKB 2 
P.AAC ~LONG 6 
-ADDRESS P.AAD 
P.AAF eASCII \COMPRESS\ 


QUININE AWA 2 SO 


F>ooo 4-4 109 SII IO OO 
v 
. 
> 
Pad 
wv 


- LONG 

«ADDRESS P.AAF 
eASCII \CREATE\ 
-BLKB 2 


- LONG 
-ADDRES. P.A 


AH 
tf sence taathemminras: 
P.AAI: .LCWG 15 
-ADDRESS P.AAJ 
P.AAL: .ASCII \DATA\ 
P.AAK: .LONG 4 
ADDRESS P.A 


. AL 
ASCII \DELETE\ 
BLKB 2 


-LONG 6 
-ADDRESS P.AAN 
ASCII \EXTRACT\ 
-BLKB 1 


. -LONG 7 
-ADDRESS P.AAP 
P.AAR: .ASCII \FULL\ 
P.AAQ: .LONG 4 
«ADDRESS P.AAR 
P.AAT: .ASCII \GLOBALS\ 
-BLKB 1 


-LONG 7 
«ADDRESS P.AAT 
-ASCII 


\HELP\ 


H * i 
LIB_GETCMD 16-Sep 4 01:53:1 AX-11 Bliss=32 V4.0-742 
be =650 L1IB_GET_COMMAND 14-Sep 71382 93; 33: :0 LIBRAR. SRC GETCMD -B32;1 
0000004 O00A4 P.AAU: .LONG 4 
389 0095 OAs -ADDRESS P.AAV 
59 52 4F 54 53 49 4 at P.AAX: .ASCII \HISTORY\ 
08 -BLKB 1 
4 sea dd OOB4 P.AAW: ONG 7 
0900009" poee ADDRESS P.AAX 
54 52 45 53 GE & af P.AAZ: .ASCII \INSERT\ 
GOC BLKB 2 
00000006 000C4 P.AAY LONG 6 
00000000" 000C8 -ADDRESS P.AAZ 
54 53 49 4C OOOCC P.ABB: .ASCII \LIST\ 
8088088. O0D0 P.ABA: .LONG 4 
000000 000D4 ADDRESS P.ABB 
47 4F 4C 0Q00D8 P.ABD: .ASCII \LOG\ 
00008 -BLKB 1 
00000003 Bas P.ABC: .LONG 3 
00000000" OO00E0 «ADDRESS P.ABD 
4F 52 43 41 4D OOOE4 P.ABF: .ASCII \MACRO\ 
QO0E9 -BLKB 3 
00000005 OOOEC P.ABE eLONG 5 
00000000" OO0FO -ADDRESS P.ABF 
53 45 4D 41 4E OOOF4 P.ABH: .ASCII \NAMES\ 
000F9 -BLKB 3 
00000005 OOOFC P.ABG: .LONG 5 
00000000" 00100 -ADDRESS P.ABH 
54 43 45 4A 42 GF 00104 P.ABJ: .ASCII \OBJECT\ 
QO10A -BLKB 2 
00000006 0010C P.ABI -LONG 6 
00000000" 00110 -ADDRESS P.ABJ 
59 4C 4E 4F 00114 P.ABL: .ASCII \ONLY\ 
00000004 00118 P.ABK: .LONG 4 
00000000" 0011C¢ -ADDRESS P.ABL 
54 55 50 54 55 4F 00120 P.ABN: .ASCII \OUTPUT\ 
00126 -BLKB 2 
00000006 00128 P.ABM: .LONG 6 
00000000" 0012C -ADDRESS P.ABN 
45 56 4F 4D 45 52 00130 P.ABP: .ASCII \REMOVE\ 
00136 -BLKB 2 
00000006 00138 P.ABO: .LONG 6 
00000000" 0013Cc -ADDRESS P.ABP 
45 43 41 4C 50 45 52 00140 P.ABR: .ASCII \REPLACE\ 
00147 -BLKB 1 
00000007 00148 P.ABQ: .LONG aA 
00090000" 80186 ADDRESS 
43 52 41 45 53 SF 45 56 49 54 43 45 4C & 23 are P.ABT: .ASCII \SELECTIVE _SEARCH\ 
00000010 00160 P.ABS: .LONG 
sa yes 9 85188 ADDRESS P.ABT 
45 52 41 48 5§ o168 P. ABV: “ASCII \SHARE \ 
00000005 00170 P.ABU: .LONG 
set aa 0174 -ADDRESS P.ABV 
45 43 4—& 49 5§ $178 P.ABX: “ASCII \SINCE\ 
900006 5 9190 P.ABW: .LONG 
9 00 " 01 ADDRESS P.ABX 
45 SA 45 45 55 1 0188 P.ABZ: .ASCII \SQUEEZE\ 


<r 
ov 


sg 


L1B_GET_ COMMAND 


00 3A 54 55 


ooouwNnwW COO 
ooooo ooo 
ooouvNwW £0 
ooofo wom 
FSOofkuVio fee 
MOOUWoO OWN 


00000000" 

* 00000000 
000 

00000000" 00000000' 


00000000" 00000000° 
00000000 00000000' 


* 00000000* 00000000' 
00000000" 00000000' 
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-ADDRESS P.ACF 3 
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-BLKB 
P.ACG: .LONG 3 
-ADDRESS P.ACH ; 
P.ACI: .ASCII <6>\SYMBOL\<0> : 
P.ACJ eASCII <5>\VALUE\<0><0> 5 
P.ACK: .ASCII <$2 \RODULE\<0> 3 
P.ACL: .ASCII <3>\AL 3 
P.ACM: .ASCII <i>\ noe \<0><0><0> ; 
P.ACN: .ASCII \SYSSOUTPUT:\<0> 3 
P.ACO: .ASCII \SYMBOL\<0><0> ; 
P.ACP: .ASCII \VALUE\<0><0><0> 3 
P.ACQ: .ASCII \MODULE\<0><0> : 
P.ACR: .ASCII \ALL\<O> 3 
P.ACS: .ASCII \NONE\ 3 
PSECT S$OWNS,NOEXE,2 
QUAL_TABLE: 
~ADORESS . SD_BEFORE, SD COMPRESS, SD_CREATE, ; 
D_tROSS s SREFEREN NCE, SD_DATA; SD_DELET , oe -% 
3D “EXTRACT, FULL, “36 _GLOBALS; SD_HELP, - ; 
SD-HISTORY ae LIST, -L0G. D_MACR ve 3 
SD"NAMES, SD_OBJECT. SD7O SB_REMO ; 
SD- SHARE SINCE, SD PrexT. “sD PREPLACE, = : 
SD-INSERT, SB_SQUEEZE ; 
BIT TABLES te 32, 6, 7, 28, 35. 8 17, 3, 29 
Tt, fits Se. The Va as 1! Oe Ree Sag ee 
10, 19 3 
CALL_TABLE: 
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ADDRESS SETLISTFILE 
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000 BD 0008 PUSHAB CLISGET VALUE i 0825 : 
0000" : Fe 0008S CALLS i: INPUTTFTLE one : 
nape fig oF Oo¢ PUSHAB "ELISGET VALUE ; 0831 
0000" CF Fb 00¢9 CALLS ioc PUTFILE ; ett 
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3 04 ae 8? 34 O14, eer Ae LIBSCL-CTLMSKS3, 14$ ; 0864 : 
66 014 0° > 0865 é 
05 4 €1 TSTL «=o : 0 ; 
SP edb] bee 3) ReRae . J 
“ O1 Ae a BS 00160 108: ROVE’ BS6L IBF EXTN, 8(RO) : 0871 
2 00006 68 38 doles mys LSSGL CTLMSKe 118 pie 
- 09 it AG 01 13 FS o170 ese pues tab etinscet 12$ 3 Cer | 
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1 ZSBTTL ‘inputifile'; 


oO 
o200 
~ 
0 


: 413 

> $14 80 1 

3; 6415 ett 1 ROUTINE inputifile = 

> 416 S BEGIN 

; 417 088 'e+ 

; 418 bape ! This routine is called by CLI when the Library filename 

; 419 885 ! is processed. 

; 420 Base ; 

; 421 Ht ! Implicit inputs: 

; 4 ¢ 888 : . ; 

3; 4 0889 : token_desc Address of the descriptor 

: 424 +44 : 

> 425 891 ! Outputs: : 

: 426 089 : ‘ : ‘ : 

: 427 089 : An fdb js allocated for the Library file and the information is filled : 

; 428 0894 : in. If not sroperny the Library, open the file to ensure it exists, ; 

: 429 0895 : and determine the Library type expected if an explicit extension was : 

; 430 0896 : specified. : 
is 431 0897 ' : 

3 $36 0898 leo ; 
[3 rh 0899 LOCAL : 

: 434 0900 status, ; 

; 435 0901 openstatus,— ; 

; 436 090 filenamestring F 

: 437 090 ; \fab : BBLOCK Cfab$c_bin); 

; 439 0905 allocate_fdb (Lib$gl_libfdb); ‘Allocate a new FDB for Library 

; 440 0906 § eee ee et nar cenana Space gecou, Lengens, filenamestring); E 

: 441 090 ch$move (.token_descldsc$w_length], .token_descidsc$a pointers. .filenamestring); 

3: 44 0908 LibSol_tibtdbE fabs _nandesc, = ,token_descCdsc$w_length); 

> 44 0909 a tesat Liofdb{fdb$l_namdesc] + 4 = .filenamestring: 

> 464 0910 CHSMOVE (dsc$c_s_blhn, def_lib_extn, Lib$gl_libfdb [fdb$l_detext]); ‘ 

> 445 0911 2 IF NOT .Lib$Sgl-ctlmsk ClLibSv_Create) TUnless creating the Library 

; 446 pals THEN 

3; 4467 091 BEGIN 

: 448 0914 BIND 

> 449 0915 filenamedesc = tinsel Lidfdb Cfdb$l_namdesc] : BBLOCK, 

; $29 Bais namblk = Lib$Sgl_LibfdBb Cfdb$t_nam] = BBLOCK; 

; $52 P 0918 SFAB_INIT (FAB = Lfab, 

; 455 P 0919 FNS = .token_desc Cdsc$w_length] 

3 454 P 0920 FNA = .token_desc dsc$a_pointer4, 

> 455 P 0921 NAM = nambLk 

: 45 P 09 § DNS = .def_lib_extn [dsc$w_length) 

3; 45 9 DNA = .def~lib-extn Cdsc$a pointer]); 

- 458 Ose 4 IF NOT (openstatus = SOPEN”(FAB = Lfaby ; ete 

; 4459 0925 3 AND “gponatetus NEQ rms$_flk 'LBR will wait if locked : 

: 460 ac6 4 THEN BEGIN ; : 

; 461 927 4 etfilnamdesc (\fab, filenamedesc); 'Get string descriptor for filename 

; ? 0999 & peel. stor (LibS_openin, 1, filenamedesc, .openstatus, .lfab [fab$l_stv]); : 

3 464 03 0 j etfilnamdesc (lfab, filenamedesc); : 

; 465 931 4 F NOT (IF NOT .openstatus THEN true 3 

; re Be § 4 ELSE (status = $CLOSE (FAB = Lfab))) : 

; 46 9 THEN SIGNAL (Lib$_closein, 1, Lib$gl_Libfdb Cfdb$l_namdesc], .status, : 

: 468 0934 -Ufab j fabst stv); ae : : 

; 469 0935 IF .namblk Cnam$v_exp_type '‘If explicit extension given : 
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yOe2000 inputifile 14- =30 71382 33383) LIBRAR.SRCJGETCMD.B32;1 . 3} vl 
; 470 09 $ ; AND .namblk Cnam$b_rsi] NEQ 0 ! and resultant eer ine exists : 
; 471 83 AND pL tosgl. type EGL Lbr$c_typ_unk ! and library type wa ° 
: rtf 83 3 : ; THEN BEGIN i not set with a qualifier ° 
3; 474 940 4 ! Lookup the extension in the table. If its a known extension, change 
ls 475 941 4 ! the Library type to match the extension. 
: 476 942 4! 
; 477 943 & LOCAL 
; 478 944 & ext_start, 
; 479 0945 4 ext_end; 
; 480 0946 4 
; 481 0947 & IF CHSFAIL(ext_start = CHSFIND_CH (. peabtt Cnam$b_rst], !Find end of directory 
; 48 0948 4 nambLR Cnam$l_rsal, 
; 48 0949 4 ZASCII 'J"')) 
> «484 0950 4 THEN IF CHSFAIL(ext_start = Wat IND CH_(.namblk Cnam$b_rsl], !Find end of directory 
; 485 0951 4 ™,namblk neadl sal, 
; 486 Baeg 4 ZASCII ‘> 
: 487 0953 4 THEN start = ‘panblkCoans| reals 
; 4488 0954 4 ext_start = CHSF IND Tenant (.namblk Cnam$b_rslJ - start - .namblk Cnam$l_rsa]), 
; 489 0955 4 ext start ASCII : oF “FInd start of extension 
: 490 0956 4 extend = CHSFIND_CH (. narblk oR, ate - & sext Start - .namblk Cnam$l_rsa]), 
> 491 0957 4 ext_start, ZASC "ds " 
; 49 0958 4 face i FROM O TO Lbr$c _typ.. decmx = 1 ‘Look at all the extensions . 
; 49 0959 5 0 BEGIN 
3; 494 0960 5 
: 495 34d : curdesc = Lib_obj_defext + .i*(2 * dsc$c_s_bln) : BBLOCK; !Name descriptor ; 
: 49 0963 5 IF CHSEQL (.ext_ _— - .ext_start, .ext_ : 
; 498 0964 5 .curdesc Cdsc$w_lengthd, “gurdes¢ Cdsc$a_pointer]) : 
; #4499 0965 6 THEN BEGIN ; 
; $00 0966 6 set_lib_type (.i + 1, curdesc); ‘Set the Library type F 
; 501 0967 6 EXITLO OP; ‘and we are done : 
; 206 0968 5 ; : 
; 0969 4 END; : 
; 504 0970 3 END; : 
; 309 0971 2 END; ; 
; 506 0972 2 , ‘ : : 2 
3 HA 348, § : If the Library type is still undefined at this point, default it to “object’’: 
; 509 0975 IF _.Lib$gl_type EQL Lbr$c_typ_unk THEN Lib$gl_type = Lib$s_object; 
: 510 0976 5 RETURN true r nated 
; 3 0977 1 END; !Of INPUTIFILE 


-EXTRN SYSSOPEN, SYSSCLOSE 
OFFC 00000 INPUTIFILE: 
WORD 


; Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0881. 
5B 00006 CF 9E 0000 MOVAB LIBSGL_LIBFDB, Ri1 ; | 
SA ss 0000G «CF «YE 0000 MOVAB LIBSGL-TYPE, R10 : 
59 0000" «CF 9E 0000C MOVAB TOKEN DESC, R9 : 
SE AC AE 9E 00011 MOVAB -84(SP), SP ; | 
38 DD 00015 PUSHL R11 ; 0905 | 
cooov CF O18 0001 CALLS #1, ALLOCATE_FDB ; | 
& gD 00ic PUSHL ; 0906 
7E 69 3C OO01E MOVZWL TOKEN_DESC, -(SP) : 


<r 
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tde=s50 inputifile 14-Sep 71982 9}: 33; 3 LIBRAR.SRCIJGETCMD.832;1 . (88 
00006 cr 03 FB 00021 CALLS #2, LIB_GET a M : 
& 6 3¢ 0026 MOVZWL TOKEN DESC : 0907 
00 BE 04 8? C8 0029 MOVC3 aroKEN Desces, @F ILENAMESTRING : 
& 68 DO 0002F MOVL Pease. B, R6 + 0908 
2 Ae ae p § g MOVE FILENAME STRING 20(R6) + 0909 
é \ 
08 Ab ee) 88 ; OO3A MOVC3 #8, DEF_LIB_EXTN, 8(R6) : 0910 
00006 CF 0040 TSTB UTSGL.CTLMSK : 0911 
93 18 00044 BGEQ i$ : 
012E 31 00046 BRW 12$ : 
57 10 A6 9E 00049 18 MOVAB 16(R6), R7 : 0915 
56 40 Ag 9E 9040 MOVAB 64(R6), R6 + 091 
0050 &F 00 6E a 00 2c 0091 MOVCS #0, (SP), #0, #80, SRMS_PTR : 092 
06 «AE 5003 8F B80 0005A MOVW £3) Sis SRMS PTR : 
1A AE 02 90 00060 MOVB Re ¢ : 
23.—AE 02 90 00064 MOVB ss #2, HES ~prRs $3 : 
2c oAE 56 DO 00068 MOVL R6, $RMS-PTR+40 : 
30 3=AE 04 a9 DO 0006C MOVL TOKEN DESC+4, $RMS_PTR+44 : 
34 «AE D4 a9 DO 00071 MOVL DEF -L18 EXTN+4, $RAS _PTR+48 : 
38 AE 58 90 00076 MOVB ~=-aR'B,~ PTR+5 : 
39 AE DO Ad 90 O007A MOVB _—sCODEF i "8 *EXIN. SRMS_PTR+53 : 
04 AE 9F 0007F PUSHAB PF FAB : 0924 
000000006 00 01 FB 00082 CALLS #1, SYSSOPEN : 
52 50 DO 00089 MOVL RO, OPENSTATUS : 
29 52 £8 0008C BLBS | OPENSTATUS, 2$ : 
0001828A 8F 52 D1 O008F CMPL OPENSTATUS, #98954 + 0925 
20 13 00096 BEQL 2$ : 
57 DD 00098 PUSHL : 0927 
08 AE 9F OO09A PUSHAB LFAB : 
00006 CF 02 FB 0009D CALLS #2, GETFILNAMDESC : 
10 AE DD 000A2 PUSHL LFAB+12 : 0928 
52 DD OO0AS PUSHL OPENSTATUS : | 
57 DD OO0A7 PUSHL 7 : 
01 DD 000A9 PUSHL #1 ; 
00861098 8F DD 000AB PUSHL #8786072 : 
000000006 00 05 FB 00081 CALLS #5, LIBSSTOP : 
57 DD 00088 2$: PUSHL R7 : 0930 
08 AE 9F OOOBA PUSHAB UF AB : 
00006 CF 02 FB 000BD CALLS GETFILNAMDESC ; 
25 52 €9 b00C2 BLBC opense TATUS, 3$ : 0931. 
04 AE 9F 000C PUSHAB LFAB : 0932. 
000000006 00 01 FB 000C8 CALLS #1, SYSSCLOSE : 
18 50 £8 Q00CF BLBS STATU 3$ : 
10 Ar DD 000D2 PUSHL B+) 5 > 0934 
50 DD 90005 PUSH TA TUS : 0933 
7E 6B 10 ¢1 00007 ADDL3 #16, LIBSGL_LIBFDB, -(SP) ; 
ot DD 00008 PUSHL ; 
00861050 8F DD 9000 PUSHL : 6000 : 
000000006 00 05 FB O00E CALLS #5, L BS$SIGNAL : 
F 34 OG 01 EI QOEA 3$: BBC #1. 52(R6), 108 : 0935 
03 «Ab OCOEF TSTB =—-_-3.(R6) : 0936 
7A 13 OGOF2 BEQL 10$ : 
A 05 000F4 TSTL L 1BSGL TYPE : 0937 
<3 OF 6 BNEQ 12$ : 
50 03 Ad 9A OOOF MOVZBL 3(R6), RO > 0947 
52 04 Ad DO OOOFC OVL 4(R6). R2 > 0948 


~~. 


4 
L1B_GETCMD ibese -1984 01:53:1 AX-11 Bliss-32 V4.0-742 
Lie =650 input i file 12-8 08- 1 3be 03:33:43 LIBRAR.SRCJGETCMD.B32;1 
62 50 5D 8F 3A 001 LOCC =—-_-s #93, -RO, (R2) 
¢ of 801 CAL 
54 1 0g 109 4$ MOVL 1, EXT_START 
14 1 10¢ BNE : 
50 03 Ab 3, 001 3 MOVZBL 3(R6), RO 
62 50 H A 0011 LOCC #62, RO, (R2) 
0 12 116 BNEQ 5$ 
1 04 0011 CLRL RT 
54 51 DO OO11A 5$ MOVL  R1, EXT_START 
3 12 0011 BNEG  6$ 
54 2 pO OO11F MOVL_ R2, EXT_START 
50 52 4 ¢ 0122 6$ SUBL3 Ext START, R2, RO 
ERATE RIN 
64 50 2E oh 0012D LOCC #46, RO, (EXT_START) 
02 12 00131 BNEQ 7$ 
31 D4 00133 CLRL sR 
54 1 DO 00135 7$ MOVL. 1, EXT_START 
50 52 54 C3 00138 SUBL3 EXT_START, R2, RO 
51 03 A6 9A 0013C MOVZBL 3(R6), R1 
50 51 CO 00140 ADDL2. R11, RO 
64 50 3B 3A 00143 Locc #59, RO, (EXT_START) 
oF be oo1e9 CALI 
57 51 54 C¢3 00148 8$ SUBL3. EXT_START, EXT_END, R7 
50 56 be ° $0181 9$ ASHE he I, RO 
55 OO00GCF40 9E 00155 MOVAB LIB_OBJ_DEFEXTCROJ, R5_ 
65 00 64 57 2D 00158 CMPCS R7,~(EXT_START), #0, (RS), @4(R5) 
04 €5 00160 
OC 12 00162 BNEQ 11$ 
55 DD 00164 PUSHL 5 
01 Ab 9F 00166 PUSHAB 1(1) 
0000v CF 02 FB 00169 CALLS #2, SET_LIB_TYPE 
07 11 OO16E 10$: BRB 12$ 
56 D6 00170 11$: INCL I 
04 56 D1 00172 CMPL sd, 4 
DA 1B 00175 BLEGU 9$ 
6A D5 00177 128:  TSTL  LIBSGL_TYPE 
03 12 00179 BNEQ 13$ 
6A 01 pO 00178 MOVL #1, LIBSGL_TYPE 
50 01 DO OO17E 138:  MOVL #1. RO 
04 00181 RET 


; Routine Size: 386 bytes, Routine Base: S$CODE$ + 0193 
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ZSBTTL ‘input2file'; 


ROUTINE input2file (desc) = 
BEGIN 


'e¢ 

This routine processes the secondary input file specifiers. 
Inputs: 

desc Address of the descriptor 


Lib$file_scan is called for the file specifier to parse/ 
hence get ail files included by the specification. ALL 
successfully will be added to the input List. 


search and 
files searched 


! 

i 
i 
i 
i 
i 
i 
Outputs: 
i 

! 

i 

i 
le 


MAP 
desc : REF BBLOCK; 
OWN 


inamesa : VECTOR Cnam$c_maxrss, BYTE], 
inamrsa_: VECTOR Cnam$c_maxrss, BYTE), 


Lnam : SNAM ( 
= Lnamesa, 

ESS = nam$c_maxrss, 

RSA = Lnamrsa, 

RSS = nam$c_maxrss), 
fab : SFAB ( 

5 NAM = Lnam) 

we ee pentane: INITIAL (0), ! Argument for Lib$file_scan. 
status; 


Lib$Sgl_ctlmskClib$v_selective] = cli$present(sd_selective_search); 


! 
' Set up the FAB for current input file: 


LfabCfab$l_fna] = .desc Cdsc$a_pointer]; 

Lfab(fab$b_fns] = .desc [dsc$w_length]; | 

Lfablfab$l_dna] = .def_fil_extn (Cdsc$a_pointer); 

lfablfab$b_dns] = .def_fil_extn Cdsc$w_length); 

status = Lib$file_scan (lfab, filescantruact, - 'Find all the files 
filescanflsact, sticky_context); 

: Lib$file scan signals any errors, and if no input files are opened, then 
! _ LIBRARIAN terminates, so no need to retain status. 

RETURN true ; : ; 

END; ‘Of input2file 
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LI8_GETCMD 
Vv =§50 


sis 


0000G CF 


; Routine Size: 


H 4 
16-Sep-1984 01:53:1 AX=11 Bliss-32 V4.0-742 
input2tile 12-808- 1 3be 03:33:43 LIBRAR.SRCJGETCMD.B32;1 
00009900 43 LONG 0 
000 44 WORD 
0 0044 “BYTE 
O44 “BYTE 
900000 bab LONG 
00090 Q448 “LONG 
0 44C “WORD 
044E ‘BYTE 
O44F “BYTE 
00000000 00450 “LONG 0 
00000000 00454 STICKY CONTEXT ; 
00458 STATUS: :BLKB 4 
.PSECT $CODE$,NOWRT,2 
0004 00000 INPUT2FILE: 
-WORD Save re 
52 0000" CF 9E 00002 MOVAB LFAB+4 
0000" CF 9F 00007 PUSHAB §p MBELETIVE SEARCH 
00006 CF 01 FB 0000B CALLS #17 CLIS$PRESENT 
01 02 50 FO 00010 INSV RO. iD, #1, LIBSGL. CTLMSK+2 
50 04 AC dO 00017 MOVL DESC, RO 
62 04 AO 00 0001B MOVL  4(ROS, LFAB+44 
08 A2 60 90 OO01F MOVB (RO), LFAB+52 
04 A2 FCFO C2 DO 00023 MOVL  ODEF_FIL_EXTN+4, LFAB+48 
09 A2 FCEC C2 90 00029 MOVE DEF -FIL-EXTN, LFAB+5S3 
24 A2 OF O002F PUSHAB STICKY CONTEXT 
O00Ov CF 9F 00032 PUSHAB FILESCANFLSACT 
0000v CF 9F 00036 PUSHAB FILESCANTRUACT 
D4 A2 9F OOO3A PUSHAB LFAB 
000000006 00 04 FB 0003D CALLS #4, LIBSFILE_SCAN 
28 A2 50 DO 00044 MOVL RO. STATUS 
50 01 DO 00048 MOVL #1. RO 
04 00048 RET 
76 bytes, Routine Base: $CODE$S + 0315 


Page 30 
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4 | 
B_GETCMD 1b-se $1984 01:53:1 AX-11 Bliss-32 V4.0-742 Page 31 
Oe 7000 filescantruact 127808-1 982 13338503 LMTBRAR SRE GETCMD.B32;1 3) 
; ser 18 9 ! ZSBTTL ‘filescantruact'; 
; 568 103¢ J ROUTINE filescantruact (fab) = 
ie one ie 
: 571 1035 i This routine is called by Lib$file_scan when a successful $search has 
: 276 1036 ! been done. 
; OF 1037 : 
> 574 1038 : 
homie 
; arf 196) é ; fab Address of the fab 
: 44 1948 : Outputs: 
: 581 1045 i a file descriptor block is allocated and the information is copied 
; ob¢ 1046 } into it so the file can be opened Later. 
; 1047 : 
; 584 1048 {oo 
. oe eee 
3 387 1051 go fab + REF BBLOCK; 
; 589 1088 ; module_string, 
: 590 1054 saversa, 
; 1055 namblk : REF BBLOCK, 
; 1056 § newnamdesc : REF BBLOCK, 
3; 593 1057 newfdb : REF BBLOCK; 
: 386 1089 3 BIND 
; 396 1960 : scaname = .fab Cfab$l_nam] : BBLOCK; 'NAM block of winner 
: 598 106¢ 2 allocate_fdb (newfdb); 'Get a new fdb 
; ov 106 § newnamdesc = newfdb [fdb$l_namdesc]; ‘Point to filename descriptor 
; 600 1064 lLastfdb Cfdb$l_nxtfdb] = .newfdb; 'Link into the List 
; 601 1065 2 prevfdb = .lastfdb; 
; 60 1066 § astfdb = .newfdb; ‘Set new last 
; 60 1067 namblk = newfdb Cfdb$t_nam]; ‘Point to new nam block 
; 604 1068 saversa = .namblk (nam$l_rsaJ; 'Save over CHSMOVE 
; 605 1069 CHSMOVE (nam$c_bln, scaname, .mamblk); !Copy NAM 
: 606 1070 namblk Cnam$l_esa] = namblk Cnam$l_rsa] = .saversa; !Set ESA to RSA 
; 607 1071 nambLk Eransb-rst = .scaname (nam$b_rsl]; 
; 608 1076 namblk Cnam$b_eslJ = .scaname [nam$b_rslJ; . : ; 
; 609 107 etfilnamdesc (.fab, .newnamdesc); 'Get etree descriptor _for file spec. 
; 610 1074 PHSMOVE (.nambLk Enondd esti. .scaname ([nam$l_rsa], .namblk [nam$l_rsa]); 
3; 611 1075 if .modulenamedesc(dsc$w_length] gtr 
aoe sah 
: 614 1078 Lib. get mem(.modulenamedesc(dsc$w_length], nodule_string): : 
; 615 1079 chSsovet modulensnegescldscSy. length. -modulenamedesc(dsc$a_pointer], .module_string); 
; 616 1080 newfdb{ fdb$l_modnam] = .modulenamedesc(dsc$w_length); 
; 617 1081 newfdbl fdb$l_modnam] + 4 = .module_string; 
: 619 1088 ; se 
: 620 1084 2 RETURN true 
; 621 1085 END; 'Of filescantruact 


tsi" 


filescantruact 
66 
046 B86 
04 BE 


; Routine Size: 136 bytes, 
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MOVZWL 
MOVL 
1$: MOVL 
RET 


G00 


SCODES + 0361 


4 & 
12286871382 95:38: 


1 AX=-11 Bliss-32 V4.0-742 
0 LIBRAR.SRCJGETCMD.B32;1 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


FAB, R11 
40(R11), RB 


“i. ALLOCATE, FDB 

16(R9). NEWNAMDESC 
LASTF 

LASTFDB, PREVFDB 

R9, LASTFDB 


(R8), 3(NAMBLK) 
(R8), 11(NAMBLK) 
Sta sc 


R 
#2, GETFILNAMDESC 

3 (NAMBLK) 

RO, @4(R8), @4(NAMBLK) 
MODULENAMEDESC, RO 


MODULE_STRING 
RO 


#2, LIB_GET_MEM 

MODULENAMEDESC, @MODULENAMEDESC+4, - 
@MODULE_STRIN 

MODULENAMEDESC, 24(R9) 

RODULE STRING. 28(R9) 


See Se Se Se Se Be Be Be Be Be Be Ge Be Be Be Se Be Be Se Be Be Be Fe Se Se Be Fe Fe Se Se Se Be Se 


K 4 
LIB_GETCMD 16-Sep-1984 01:53:1 AX-11 Bliss-32 V4.0-74 Page 33. 
ibe =650 filescanflsact 127808-1 382 93:33: LIBRAR.SRC GE CMD O3204 . Be 
: ; 19 § ! ZSBITL ‘filescanflsact'; 
: 625 1088 1 ROUTINE filescanflsact (fab) = 
3; 6 $ 1089 BEGIN 
3; 6 1090 'e¢ 
; 628 1091 ! This routine is called by Lib$file_scan when an unsuccessful S$search has 
3 ? 2 1398 } been done. Ignore it after issuing an error message : 
: 651 1094 ! Inputs: : 
3; © ¢ 1095 ! 5 
; 6 1096 ! fab Address of the fab : 
s 6 944 ' F 
; 655 1098 ' Outputs: : 
3; 6 1099 ' ; 
; 637 1100 : An error message is issued. : 
; 638 1101 ! 
; 639 1106 leo 
: 640 110 
3; 641 1104 MAP 
; 64 1105 fab : REF BBLOCK; 
; 64 1106 
> 644 1107 LOCAL 
; 645 1108 filedesc : BBLOCK Cdsc$c_s_bin]; 'String desc. for filename 
; 646 1109 
3; 647 1110 ! | 
: ot8 413) Get the filename string descriptor set up 
; 650 148 2 PPLE tinentese (.fab, filedesc); 
; 651 1114 2 SIGNAL (LibS_openin, 1, filedesc, .fab Cfab$l_sts], .fab Cfab$l_stv]); 
; 6 1115 2 filesnotfound = .filesnot found + 1; 
3; 6 1116 2 
; 654 1117 2 RETURN true 
3 635 1118 1 END; 'Of filescanflsact 
0004 00000 FILESCANFLSACT: 
«WORD Save R2 ; 1088 
SE 08 C2 00002 SUBL2 #8, SP 3 
5E DD 00005 PUSHL SP 3 1113 
52 04 AC DO 00007 VL FAB, R2 3 
35 DD 00008 PUSHL 3 
0000G CF 0 FB 00000 CALLS #2, GETFILNAMDESC : 
7E 08 A2 7D 90012 MOVd 8(R2), -(SP) > 1114, 
08 AE 9F 00016 PUSHAB FILEDESC ; | 
01 DD 00019 PUSHL ; 
00861098 8F DD 0001B PUSHL | arg 143 3 
009000006 00 05 FB B08 1 CALLS #5, LIBSSIGNAL 3 
0090" CF D6 b8 8 INCL F ILESNOTF OUND 3: 1115 | 
50 01 pO 0002C MOVL 1, RO s 1117 
04 0002F RET > 1118 


: Routine Size: 48 bytes, Routine Base: SCODE$ + 03E9 
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4 
Sep-1984 01:53:1 AX=11 Bliss-32 V 
16-Se0-19 1 93:88:4 LIBRAR. SRCIGET 


outputfile & setlistfile 


1138 } ZSBITL ‘outputfile & setlistfile'; 

1121 1 ROUTINE outputfile = 

1% § BEGIN 

i 4 This routine processes output files. 

11 § LOCAL 

1 ‘ filenamestring; 

1129 allocate_fdb (Lib$gl_outfdb); 'Allocate FDB for output 
11350 Lib_get_mem(.token_desc gsc$u. Length], filenamestring); 

1131 ch$move (. tok n_descldsc$w_lengthJ, .token_descLdsc$a epginterd. -filenamestring); 
11 ¢ Lib$gl_outfdbCfdb$l_namdest] = .token_descCdsc$w_l nae 

11 Lib$gl"outfdblfdb$l“namdesc] + 4 = .fTlenamestrin 

1134 o HSMOVE (dsc$c_s_bln, def_fil_extn, Lib$gl_ out fdb *F abst yfesertri 'set default extension 
1135 R URN true alt 


0O?7C 00000 OUTPUTFILE: 
-WORD Save af ge R5,R6 


56 0000" CF 9E 00002 MOVAB TOKEN_DESC. R6 
5E 04 C2 00007 SUBL2 #4, SP 
00006 CF 9F OOO0A PUSHAB LIBSGL OUTFDB 
0000v CF 01 FB B0008 CALLS , ALCOCATE_FDB 
5E bD 0001 PUSHL 
E 66 3C 00015 MOVZWL TOKEN DESC SP) 
00006 CF 02 FB 00018 CALL LTB 
00 BE 04 86 66 28 00010 MOVC rocen Bese 
50 00006 CF 00 00023 MOVL LIBS$GC_OUTFDB 
10 AO 66 3C 00028 MOVZWL TOKEN Bese att 0) 
14 AO 6E 00 0002C OVL FILENAMESTRING. 20(RO) 
08 a0 D8 Ab 08 28 00030 MOVC3 . DEF FIL_EXTN, 8(RO) 
50 01 DO 00036 MOVL - 
04 00039 RET 


58 bytes, Routine Base: S$CODE$S + 0419 


1137 1 ROUTINE setlistfile = 

vag em 

Be This routine is called when the /LIST qualifier is parsed 

114 

1143 allocate_fdb (lLib$gl_lisfdb); ‘Allocate FDB for List file 
1144 cli$ get Value(sd_list, token_desc); ; 
1145 2 if .token_descldsc$w_length] NEQ 0 'If /LIST=string 
1146 THEN 

1147 BEGIN 

1148 LOCAL 

1149 filenamestring; 

1150 


Lib_get_mem(.token_desc(dsc$w_length], filenamestring); 


CM MD: 


~BTOKEN. DESC+4, @F ILENAMESTRING 


Bee Be Se Oe Be Be Oe Be Oe Be Oe Be Be oe 
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LIB_GETCMD 1hese -1984 AX-11 Bliss-32 v4.0 35°9 Page 35. 
yOe2000 outputfile & setlistfile 14- 30071383 93; 33: 03 LIBRAR. SRCIGETCMD. B32;1 . (9) 
: 689 1151 ch$move (.token_desc(dsc$w_length], .token_descl(dsc$a_pointer], .filenamestring); 
; 690 11 ¢ LibSgl_lisfdb{ fdb$l_na ndest =" token descldsc$w_ | Lengt th}: . 
3 $3) 1) i LibSgl-Lisfdblfdb$i=n ondesc + eleecanetrties 
; 69 1155 SE 
3; 694 138 —— (ds¢$c_s_bln, sysoutputdesc, Lib$gl_lisfdb Cfdb$l_namdesc]); 
; 695 112 RETURN t 
: 696 1158 1 END; 
OOFC 00000 SETLISTFILE: 
» WORD Save ar R3,R4,R5,R6,R7 : 1137) 
57 00006 CF 9€ 90002 MOVAB LIBSGL_LISFDB, R? ; | 
56 0000" CF H 0000 HOVAB TOK KEN BESC. R6 : 
5E gs C2 0000C SUBL a4, SP $ 
7 DD OOO0OF PUSHL R 3 1143) 
0000vV CF 01 FB 00011 CALLS #1, ALLOCATE_FDB é 
56 DD 00016 PUSHL Ro” 3 1144) 
0000' CF 9F 00018 PUSHAB LIST 3 
0000G CF 02 FB O001C CALLS a LISGET VALUE 3 
50 66 7 00021 MOVZWL TOKEN_DESC,~RO 3 1145) 
1C 13 00024 BEQL ; | 
4001 8F BB 00026 PUSHR #*M<RO,S “A 3 1150) 
00006 CF 02 FB 00 A CALLS #2, LIB GET_MEM F 
00 «BE 04 B6 $8 2 O02F MOVC TOKEN Teese. “aTOKEN_ DESC+4, @FILENAMESTRING ; 1151 
50 67 00 00035 MOVL #LIBSGC_LISFDB : 1152 
10 AO 66 3C 00038 MOVZWL TOKEN DESC, 16(RO) : 
14 AO 6E 00 0003C MOVL FILENAMESTRING, 20(RO) : 1153 
09 11 00040 BRB $ 3 1145 
50 67 B0 BOO 1$ MOVL Lieset LISFDB, RO : 1156 
10 Ad E8 A6 08 28 0004 MOVC3 . SYSOUTPUTDESC, 16(RO) 3 
50 01 D0 00048 2$: = MOVL » RO 1157) 
04 0004E RET 3: 1158) 
| 
3; Routine Size: 79 bytes, Routine Base: S$CODE$ + 0453 
; 697 1159 1 
; 698 1160 1 &SBTTL ‘setlistwidth'; 
: 699 1161 1 ROUTINE setlistwidth = 
; 700 1196 BEGIN 
: 701 116 ! J 
; 70 1164 i set List for /list 
: 70 1165 ! 
: 704 1166 cli$get_value(sd_width, token_desc); : (ag 
; 705 1167 Lipscut, dtb(. tokén_descldsc$w_ “Length, -token_desc(dsc$a_pointer], Lib$gl_listwid); 
: 408 mim | 


0000 00000 SETLISTWIDTH: 


tsi" 


; Routine Size: 
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| N 4 
setlistwidth or8ee= 188s 92:88:08 Ee taranSaeicescmp 5354 


«WORD Save nothing 
9000" CF OOF 00 é PUSHAB TOKEN DESC 
000' CF 9F 000 PUSHAB SD_WIDBTH 
00006 CF 02 FB A CALLS #2, CLISGET VALUE 
G CF OF F PUSHAB LIBS$GL_LISTOID 
re S80 EE BP GReTL TRRENBERE cop 
000000006 05 03 FB Olt CALL i LTBSCvf Te 
iD 008 MOVL #1, R 
04 00026 RET 


39 bytes, Routine Base: S$CODE$ + 04A2 


BITL ‘extractfile’; 
tfile (desc) = 


%S 

ROUTINE extrac 
geese 

This routine is called when the /EXTRACT qualifier is parsed 
é 


ss vate (Lib$Sgl_modxtrl, sd_extract); 'Get the List of modules to extract 


—NMoronnnn—— — 


eto 
ETOR 
ND; 


0000 00000 EXTRACTFILE: 
ORD Save nothing 


0000" CF 9F 0 SD_EXTRACT 
0000G CF 9F 00006 PUSHAB ” BSGL_MODXTRL 
0000v CF 02 FB OOO0A CALLS grr NAME LIST 
50 01 DO O000F MOVL HR 
04 00012 RET 


19 bytes, Routine Base: $CODES + 04C9 


ZSBTTL ‘createlib'; 

ROUTINE createlib = 

aon 

Called by CLI when the /CREATE qualifier is seen. Scan the create options 
s 
RET 
E 


se a ont fons (sd_create, create_states, create_keys, lLib$Sal_creopts, Lib$gl_cre8flags); 
rue 
ND; 


—norororonon—— = 


0000 00000 CREATELIB: ; 
«WORD Save nothing 


Pa 6| 
= a 


TC rererererererere 
_ 
ss 
oa 
GN 


: 1182 


| 5 
LIB_GETCMD ise 1984 01:53:1 AX=11 Bliss-32 V4.0-74 
‘Notbbo createlib ae 93:33:08 YEBRAR’ SREIGET CMD 63064 
OG CF OF B08 PUSHAB LIBSGL_CRE8FLAGS 
G CF OF PUSHAB LIBSAL_CREOPTS 
CF 9F QOO0A PUSHAB CREATE_KEYS 
* CF 9F 000 PUSHAB CREATE _STATES 
0000" CF 9F Bot PUSHAB SD_CREATE 
0000V gf 5 fe 001 CALLS #5, SCAN_OPTIONS 
0 1 0018 MOVL #1, RO 
4 QOO1E RET 

; Routine Size: 31 bytes, Routine Base: S$CODE$ + 040C 

: 728 1190 1 

s 72 1191 1 XZSBITL ‘compressfile'; 

; 730 1138 1 ROUTINE compressfile = 

s 7351 119 BEGIN 

; 1194 ‘ 

3 te? 1132 This routine is called when the /COMPRESS qualifier is parsed 

3 735 1197 scan options (sd compress, compress_ aftates. & compress, keys, Lib$Sal -creopts, Lib$gl_cre8flags); 

; 736 1198 Tib$Sgl_cre8flags Clib$c_opt_keep) THEN Lib$gl_ctUmsk Clib$v_keep] = true; 

s Yor 1199 If A ibsol. grrost logs Lib$c"opt_dex] THEN Lib$gl_Ctlmsk Clib$v_dcx] = true; 

; 738 1200 RETURN t 

: 739 1201 1 END; 


0004 00000 COMPRESSFILE: 
ORD 


oW Save R2 
52 00006 CF 9E 0000 MOVAB LIBSGL_CRE8FLAGS, R2 
52 DD 0000 PUSHL R2 
00006 CF 9F 00009 PUSHAB LIBSAL_CREOPTS 
0000' CF 9F 0000D PUSHAB COMPRESS_KEYS 
0000' CF 9F 00011 PUSHAB COMPRESS “STATES 
0000" CF 9F 00015 PUSHAB SD_COMPRESS 
0000v CF 05 FB 00019 CALLS iS: SCAN_OPTIO 
62 06 £1 OO01E BBC LIBSGL CREBELAGS 1$ 
00006 CF 80 8F 88 00022 BISB2 Ate LIBSGL_CTLMSK+$ 
62 95 00028 1$: TSTB. = LIBSGL + CRESFCAGS 
05 18 OO02A BGEQ 
00006 CF 04 88 0002C BISB2 #4, LIBSGL_CTLMSK+4 
50 01 00 00 1 2$: MOVL #1. RO 
04 000 RET 


Routine Size: 53 bytes, Routine Base: S$CODE$ + O4FB 


: 740 1606 1 

3; 741 1 1 XSBITL ‘datareduce'; 

; 7% 1206 1 ROUTINE datareduce = 

; 764 1205 BEGIN 

3 6744 1 Be , 

: oh : 4 i This routine is called when the /DATA qualifier is parsed 

: % 1209 scan options (su_data, data_states, data_keys, lib$al_creopts, Lib$gl_cre8flags); 


1 


<~- 


5 
LIB_GETCMD ese 1984 01:53:1 AX-11 Bliss-32 V4.0-74 P 8 | L 
voes datareduce 12-808- 1382 03:33 :b8 LIBRAR. SRC GecMb 63064 we (3 V 
: 748 1 19 IF .LibSgl_creBflags Clib$Sc_opt_dcx] THEN Lib$gl_ctlmsk Clib$v_dcx] = true; 
750 isi2 fewer 


; 749 1 


0000 00000 sheeted > . 


OR Save nogning : 1204. 
0000G CF 9F 00002 PUSHAB LIBSGL_CRE8FLAGS i 1209 | 
Bp one CF OF 8888 PUSHAB LIBSAL_CREOPTS $ 
000' CF 9F QOOOA PUSHAB DATA_KEYS : 
0000 CF 9F BRb05 PUSHAB DATA_STATES 3 
0000" CF 9F 0001 PUSHAB SD_DATA ; | 
0000v CF 05 fe 00016 CALLS #5, SCAN_OPTIONS 3 
00006 CF 95 0001B TSTB = LIBSGL_CRE8FLAGS ; 1210. 
05 18 OO01F BGEQ $ : 
0000G CF 04 88 00021 BISB2 #4, LIBSGL_CTLMSK+4 r 
50 01 DO 00026 1$: MOVL #1, RO ¢ 1211) 
04 00029 RET ¢ 1212) 
; Routine Size: 42 bytes, Routine Base: $CODE$ + 0530 : 
; «751 1213 1 : 
; 752 1214 1 XSBITL ‘removesymbois'; : 
; 35 1215 1 ROUTINE temovesymbols = : 
: 754 1216 § BEGIN : 
3 i> 1217 : $ 
3 P36 1$i8 § This routine is called when the /REMOVE qualifier is parsed : 
; 758 1220 2 get_name_list (Lib$gl_ objsyrml,sd_ remove); !Get the List of symbols to remove 
; 759 1221 2 set_Lib_fype (Lib$s_object, lLib_obj_defext); 'Set object type 
: 760 1s5¢ 2 RETORN true 
; 761 1223 1 END; 
0000 00000 REMOVFSYMBOLS: | 
-WORD Save nothing : 1215 | 
0000' CF 9F 90002 PUSHAB S$ : 1220 
0000G CF 9F 00006 PUSHAB LIBS$GL_OBJSYRML : 
0000v CF 02 FB QOOOA CALLS #2, GET_NAME LIST : 
00006 CF 9F 0000F PUSHAB LIB_OBJ"DEFERT > 1221 | 
61 pb 00018 PUSHL | 
0000v CF 2 FB 0001 CALLS #2, SET_LIB_TYPE ; | 
50 01 00 OOO1A MOVL #1, R 3 1386 | 
04 0001D RET i 122 


; Routine Size: 30 bytes, Routine Base: S$CODE$S + OS5S5A 


76 1336 1 
76 1225 1 XSBITL ‘deletemodules'; 


ro - - CSC OO —_-- —- —-- -- —- $$$ 


yoeze00" deletemodules 18- e0-1984 93; 33: 03 PIBRAR SRE Geecho Bane 


> 764 1 $ 1 ROUTINE deletemodules = 

3 £6? ! BEGIN 

: rer 5 This routine is called when the /DELETE qualifier is parsed 

; , } lot pene. List (Lib$gl_delmodl, sd_delete); 'Get module names to delete 
: 771 1 


0000 00000 connate i 


Save nothing 
0000. CF of 0002 PUSHAB SD_DELETE 
000G CF 9F 8 PUSHAB LIBSeL DELMODL 
0000v CF 2 FB OOA CALLS #2, GET_NAME _LIST 
50 1 pO QOO0F MOVL #i, R 
04 00012 RET 


; Routine Size: 19 bytes, Routine Base: S$CODE$ + 0578 


re 


Sete Se Se Se Se 


LIB CMD 15 52 1984 01 1 AX-11 Blis V4.0-742 P 40 A 
-Sep- 753: - ‘ a 
oe =850 Listonlymods 12-88-13 93338503 LIBRAR.SRC Ge CMD.B32;1 610) Vv 
: 773 1234 1 XSBITL ‘Listonlymods'; ; 
: 774 1235 1 ROUTINE Listonlymods = 3 
3 4 : BEGIN ; 
: 1 : 8 7 This routine is called when the /ONLY qualifier is parsed ‘ 
44 40 Retont name. List (LibSgl_modlisl, sd_only); 
: 781 1242 ; 
0000 00000 LISTONLYMODS: 
«WORD Save DS ine, 3: l@32 
0000" CF 9F 00002 PUSHAB SD_ONLY : 1240 
0000G CF 9F 00006 PUSHAB LIB$GL panes 1S 3 
0000v CF 02 FB OO00A CALLS #2, GET. NAME _LIST 3 
50 01 pO 0000F MOVL #1, R 3 1241) 
04 00012 RET > 1262) 
; Routine Size: 19 bytes, Routine Base: SCODES + 0588 | 
| 
; re 1243 1 3 
; 7 12464 1 ZSBTTL ‘setmodulename'; 
> 784 1245 1 
; 785 1246 1 ROUTINE setmodulename = : 
: 786 1267 2 BEGIN : 
: «787 1248 § ! 3 
> 788 1249 i This routine processes the /MODULES qualifier. It is an input-file specific : 
; 789 1250 ! qualifier. 3 
; 790 1251 ! 3 
; 791 1S0¢ : 
: 792 125 cli$get_value(sd_modules ,modulenamedesc); 3 
3 795 1254 IF .modulenamedesc(dsc$w. length] EQ. 0 : 
3 794 1255 THEN SIGNAL_STOP (Lib$_novalue); : 
: £9 1256 RETURN true” : 
3: 796 1257 1 END; : 
0000 00000 SETMODULENAME : | ; 
«WORD Save nothin > 1246. : 
0000' CF 9F 00002 PUSHAB MODULENAMEDESC 3: 1253 | : 
0000" CF 9F 00006 PUSHAB SD_MODULES 3 ; 
0000G CF 02 FB QOO0A CALLS #2, CLISGET VALUE 3 | 3 
0000' 5 td isty MODULENAMEDESC : 1254 ; 
00861104 8F 0D 0015 PUSHL #8786 1255. ; 
00000000G 00 1 FB 0001 CALLS #1, LIB8STOP 3 3 
50 1 0d0 BR0s 1$ MOVL #1, R : 1256 ; 
04 000 RET 3 1257 | : 


OE 


f 5 | 
VOU=00 = setmodulenase 1e=8ep=1882 93:38:53 — HofaRan®sreSce temo :o3054 Page 43) 
; Routine Size: 38 bytes, Routine Base: SCODES + OS9E 


Pe as ee ee ee eS r oP ne Ck ee aes | 
L486 TCMD acon_epttons 19=3 384 b:33:] AX=-11 Bliss-32 V4.0-74 Page 42 


2: 0 LIBRAR.SRCJGETCMD.B832; (11) 
79 1 ZSBTTL ‘scan_options'; 
138 — 


4 poy ine scan_options ( qualifier_desc, tp_states, tp_keys, resultvector, resultflags) = 
80 
80 ! This routine reca s CLI to get the o riggs for 
04 ' /CREATE=(BLOCKS=1 GLOBALS=456,MODU Ess 21, HISTORY=654,VERSION:2) and 
i /COMPRESS = (BLO= 2$, GLOB=456, MOD=321, H1$T=654, VERSION:2, KEEP) 
MA 


vw 


LEB 


Seen Se ee SH Se Se eee SH Se eK Se ee 


COO 08 SIN NN NINN NNO AOA POO 


H 1 

; 1 § 1 

| ie 38 

; 1 ¢ : 

: 1 : 

3; 8 1264 : 

; 8 1265 

; 8 1266 

; 8 1267 

; 808 1268 qualifier desc : ref bblock, 

; 809 1269 resultvector : REF VECTOR 

; 310 9 resultflags : REF BITVECTOR; 

; oi¢ 1 ¢ LOCAL 

3; §i 1 ptr, 

; 814 1274 value_desc : bblock(dsc$c_s_bin], 

; 815 1275 key_desc : bblock(dsc$c_s_bIn], 

; B18 \§ $ status; 

: 818 1278 ! Recall CLI for the option name. then recall it opeta te get the string 

; $38 \§ , containing the value. convert the decimal value to binary. 

; 821 1281 WHILE cli$get_value(.qualifier_desc, token_desc) DO ‘While more to do 

: 822 12 ¢ BEGIN 

; 823 128 ch$move(dsc$c_s_bln, token desc, key_desc); 

; ase isos ; Ol satiate ptr=ch$find_cht. token_descldsc$w_length],.token_descldsc$a_pointer],%c'=")) 

; 826 1286 3 ptr = ch$find_ch(.token_descl(dsc$w_length],.token_desc(dsc$a_pointer],%c':"); 

: 827 1287 IF .ptr eql 0 

; 828 1288 then 

; 829 1289 value_desc(dsc$w_length] = 0 

; 830 1290 3 else | 3 
; 831 1291 4 begin 

; 832 1292 4 va wn Geach dace, ointer) = .ptr +1 ; ; 

; 833 1293 4 value_desc(dsc$w_length] = s Sokor donc (éacty. Length) - (.ptr - -pehon_dpscidecsagotnter 2) = T3 : 
; 834 1294 4 key_desc(dsc$w_length] = .token_descldsc$w_length] - .value_desc(dsc$w_length] -"1; | 3 
: tH 1295 3 end; : 
; 836 1296 3 : 3 
; 837 1297 3 ! call tparse : 
; 838 1298 ; : : 
; 839 9.4 Lib®ol_tpindex = 0; : 
; 840 1300 Lib$gi_valreq = 0; | : 
; 6841 1301 status = call _tparse (key_desc, .tp_states, .tp_keys); : 
; eee 1308 IF .Lib$gl_vaTreq 3 
; «84 1303 3 THEN : 
: 844 1304 4 begin : 
3; 845 1305 4 if .value_descCdsc$w_length] eql 0 : 
; 846 1306 4 en : 
; ot tA ? SIGNAL_STOP ( Lib$_novalue, 1, token_desc Cdsc$w_length]) : 
; 4849 1309 4 IF NOT Lib$Scvt_dtb(.value_descldsc$w length], .value_desc(dsc$a_pointer], 3 
; 850 1310 4 resultvector(.lib$gl_tpindex]) : 
; 851 1311 4 _. THEN SIGNAL_STOP (Libs badkey. 1, value desc Cdsc$w_length]); : 
; S26 1316 4 Lib$gl_cre8flags = .Lib$gl"cre8flags OR 1*.Tib$gl_tpindex; | : 
3 8 131 3 END; | : 
; 854 1314 END; : 


QS 
oO 
MOP SF FEOWWOuMOY YS ret 4 et VES — FP OVMOW "VOW FP OOPUIO PU 


ww 
OWMMOOW™—OOMOO 


OOM SOOO M NN SY FNM SVT DBDOOWOMOWO"™ 


— 
ooo 
o 
oO 


LIB_GETCMD 
yoe=060 scan_options 
s $55 1315 RETURN .status; 
; 856 1318 f END; z 
00006 
6E 
63 
63 
0c 
50 
08 
6E 
0000v 
000000006 


-—oOn 


v0vo 


!OF scan_cptions 


O3FC 00000 SCAN_OPTIONS: 
WORD 
1$: PUSHL 


] 
28: MOVC3 


3$: MOVL 


WAN AWIWNINOPUNNY SS SS — OOO 


4$: MOVL 


NEMS DNVMVOM SOWMOOHL BNO 
@ 
4 
mm 
o 


ooo 


7$: 


WDA *O—GCOGNNOOD MI OWNOOMWM = EVOL SENOLN SOO O—OWOOCrmmM 
WIS EVOMD 
v 
= 
a 
=x 
- 


MMW -999 -OMS *"OVNPOWD Ol O-@ $9 9 SW" SS SWOT THOOOOO 


pololeleoleoleloleolelejololqo) 


=138¢ aT et AX-11 Bliss-32 V4.0-74 


LIBRAR.SRCJGETCMD.B32; 


R1, PTR 
#58, R2, (R3) 

4$ 

R1 

VALUE_DESC 

1(R6), VALUE_DESC+4 
-1(RO)CR2], R1 


R1, VALUE_DESC 
VALUE_DEST, RO 


R 
LIBSGL_VALREQ, 1$ 
VALUE _BESC 

R8 

#1 

#8786180 


Se See Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Be Be Be Se Se Ge Be Be Be Be Se Be Se Be Be Be Be Be Be Be Se Be Se Be Se Be Be Be Bs 


; Routine Size: 198 bytes, Routine Base: $CODE$ + 05C4 


£ 
LIB_GETCMD 1b-se -1984 01:53: AX-11 Bliss-32 v4.0-742 Pace 64 /| L 
vbe=000 scan_opt ions Ve-Seh-198e 12:38:03 EC Tararsreice cma 63074 maatihy v 
08 AE 9F O00A4 PUSHAB VALUE_DESC : 1311, : 
01 Db 00047 PUSHL ; | : 
0086110C 8F DD 000A9 PUSHL #8786188 ; | : 
aT ae $3 $8 00006 St: Ast’ CTbsHe TeIObEX. #1, RO 4312, 
00006 CF 50 (8 0 BISL2 RO, LIBSGL_CRESFLAGS ; : 
FF4D 31 OO00BF BRW + 1281 : 
50 57 00 OO0Ce 108: © MOVL_— STATUS, RO + 1315 ; 
04 000¢ RET + 1316 ; 


wm 


L186 TCMD 18-Sep-19 4 OF 333) ae -11 Bliss-32 V4.0-7 


call_tparse & value_req & syntaxerr 14-Sep-1984 12:38:0 LIBRAR.SRC GETCMD B30; 


; £28 } i? ! RSBTITL ‘call_tparse & value_req & syntaxerr'; 

; 860 1319 1 ROUTINE call_tparse (str_desc, states, keys )= 

; 861 1320 BEGIN 

; 86 1321 MAP 

; 86 1 ¢ str_desc : REF BBLOCK; 

; 864 1 LOCAL 

; 865 1324 status; 

; 866 1325 

; 867 1 $ CHSFILL(O,tpa$k_length0, tea. block); 

; 868 1 tpa_block ([tpa$T_count thask, count0; 

; 869 1328 tpa_block thas “options] = tpaSm _abbrev: 

; 870 1329 tpa_block [tpa$l"stringcnt] = .stf_desc Edsc$w_ Length); 
; 871 1330 tpa_block [tpa$l-stringptr] = .str_desc Cdsc$a “pointerd; 
; fi 133) tpa_desc = .str_desc; 

; 874 133 status = Lib$Stparse (tpa_block, .states, .keys); 

; 875 1334 RETURN .status; 

>; 876 1335 1 END; 'OF call_tparse 


007C 00000 CALL_TPARSE: 
-WORD Save R2,R3,R4,R5,R6 


56 0000" CF 9E 00002 MOVAB TPA_BLOCK 
24 00 6E 00 2c 90007 MOVCS #0,~(SP), #0, #36, TPA_BLOCK 

66 08 DO 0000D MOVL #8, TPA_BLOCK 
04 A6 02 00 00010 MOVL #2, TPA BLOCK+4 

50 04 AC DO 00014 MOVL STR RO 
08 A6 60 3C 00018 MOVZWi (ROY TPA PL Ocnee 
OC Ab 04 Ad DO 0001C MOVL 4(ROS, BLOCK+12 
246 50 pO 00021 MOVL RO, TPA Ese 

7E 08 AC 7D 00025 MOVaQ STATES, =(SP) 

56 DD 00029 PUSHL  R6 
000000066 00 03 FB 0002B CALLS #3, LIBSTPARSE 
04 00032 RET 


; Routine Size: 51 bytes, Routine Base: SCODES + 068A 


; 877 1338 1 

; 878 13 1 ROUTINE value_req = 

; 879 1338 BEGIN 

; 880 1339 a valreq = .tpa_block (Ctpa$l_param]; 

; 881 1340 rue; 

; 882 1341 END; ! of value_req 


0000 00000 VALUE_REQ: 
-WORD Save noth 33, 
0000° CF 0000" CF 00 00002 MOVL TPA earorks 3 LIBSGL_VALREQ 


Page 45 
9°13) 


kK 5 
ves hale call_tparse &@ value_req & syntaxerr 12: 300-1 3b 9}: 33: s A TBRAR’ $ReIG echo: $33 
: ot a 


; Routine Size: 13 bytes, Routine Base: S$CODE$ + 068D 


: 883 1 3 1 

3 He 1345 1 ROUTINE syntaxerr = 

HY 85 1344 BEGIN 

3 4] 1345 ' 

3 rt } r This routine is called when TPARSE encounters an error 
; 889 1346 SIGNAL ~STOP (.tpa_block Ctpa$l_param], 1, .tpa_desc); 

; 890 1349 A eal e; 

; «4891 1350 1 EN 


0000 00000 SYNTAXERR: 
WORD 


° Save nothing 
0000" CF DD 00002 PUSHL  TPA_DESC 
01 DD 00006 PUSHL #1 
0000" CF DD 00008 PUSHL TPA_BLOCK+32 
000000006 00 03 FB 0000C CALLS + “LIBSSTOP 
50 01 D0 00013 MOVL #1, RO 
04 00016 RET 


; Routine Size: 23 bytes, Routine Base: $CODES + O6CA 


5 
LIB_GETCMD ibes -1984 01:53:1 AX-11 Bliss-32 V4.0-742 P 47, 
e=680 selectcrosref eae 03: 38i03 LIBRAR.SRCJGETCMD.B32;1 296 43) 


<r 


| 
: 893 1351 1 2SBTTL ‘selectcrosref'; ; 
; 894 1 ¢ 1 : 
3 895 1 1 ROUTINE selectcrosref = ; 
; 63 : 2¢ BEGIN : 
; 898 1 28 ! This routine processes the /CROSS qualifier. : 
; 899 135 : ; 
; 900 1358 2 LOCAL | : 
; 901 1359 firstvalue, ; 
; 90 1360 optionindex; | ; 
; 90 1361 BIND . 
: 904 1 6¢ crefbits = Lib$gl_creflags : BITVECTOR; | 
; 905 136 
; 906 1364 firstvalue = true; 
; 907 1365 ' 
3 46 : 6 There were some values, so get and check them 
3 ah 1368 WHILE cl iSget_ value(sd_cross_reference, token_desc) DO | 
; 31g 1370 IF NOT Lib$Slookup_key (token_desc, crf stable, !And look it up 
; 91 1371 opt ionindex) 
; 916 1378 
; 915 1373 4 N 
; 916 1374 4 IF NOT Lib$Slookup_key (token_desc, opt_table, !See if all or none 
; 917 1375 4 opt idnindex) 
; 918 1376 4 THEN SIGNAL_STOP ' ‘and error if none of these 
; 919 1377 4 Lib$_badkey,1, token_desc Cdsc$w _length)) 
: 920 1378 4 ELSE IF +0 tionindex EQL 0 'If /CROSS=ALL 
: 921 1379 4 THEN Lib$gl_creflags = -1 ‘then set all flags 
; 92 1380 4 ELSE Lib$gl-creflags = 0; 
s Pe 1381 4 END P 
: 926 1358 3 ELSE crefbits f. optionindex] = true; 'Set the flag bit 
: 925 1383 3 firstvalue = false; 
; 926 1384 3 
; 927 1385 IF .tirstvelue : 
: 928 1386 THEN $ 
3 oer 1387 BEGIN ; 
: 930 1388 Lib$gl_creflags Clib$v_crfbysym] = true; '‘/cross only, so give cref by symbol : 
3: 931 1389 Lib$gl“creflags Clib$v_crfbyval] = true; ' and cref by va 3 
; 932 1390 RETURN’ true; F 
; 933 1391 § END; 3 
: «934 1338 RETURN true : 
; 935 1393 1 END; ‘of selectcrosref : 


CREFBITS= LIBSGL_CREFLAGS 


003C 00000 SELECTCROSREF: 
WORD 


‘i Save R ; 1353 : 

55 0000" CF 9€ 0000 MOVAB LIBS$GL TEnEFLAGS. RS : : 

34 00009000¢ 00 9€ 0000 MOVAB LIBSLOOKUP_k  R : ; 

3 0000° CF 9E 0000 MOV TOKEN_DESC;> 3 3 

43 4 C2 0001 SUBL a4, tp : | 3 

4 1 D0 00016 MOVL #1, FIRSTVALUE : 1364, F 
3 DD 00019 1$: PUSHL R3 ; 1368 | 


esis” 


; Routine Size: 


selectcrosref 


00 


115 bytes, 


00006 


eo 
wom 


— Oo 
we 


000000006 00 


65 


Routine Base: 


: 
A 
P) 
0086110C : 
1 
6 
0 
0 
0 
6 
0 
6 
5 
B 
5 
0 
0 


os 
sau 


0000' 


ib 


94 


BO 


™ 
bad 


3$: 


MMO WOOP LDV MDOSL-MOOVNS "Ws —— 


COOQCOCCOCOCSCOCOCCOOOCOOOCOOOOOCooOOooOoO 
AAEM AGMIIIN & & 


OoV om 9M 9 29 9 SH NOVO OMNOOUOMO OOM) 
FOO O 2 £N SF SM WO VV awe "VT eowo"TO om™ 
oa 
~ 


SOOCOOCCOCSOOOCOOCOOCOOOOOOO OOOO OOOOCOOO 


SCODES + 06E1 


i THRE hadnt 


PUSHAB SD_CROSS_REFERENCE 


CALLS ae, CL ISGET_ VALUE 
LBC =—s«aRO, 6 

PUSHL 

PUSHAB CRF_TABLE 

PUSHL RS 

CALLS #3, LIBSLOOKUP_KEY 
LBS RO. 48 

PUSHL 

PUSHAB OPT_TABLE 

PUSHL 

CALLS #3, L JBSLOOKUP_KEY 
LBS , os 

PUSHL 

PUSHL #1 

PUSHL #8786188 

CALLS #3, LIBSSTOP 


B 

TSTL OPT IONINDEX 

a ae LIBSGL_CREFLAGS 
CLRL LIBSGL_CREFLAGS 

B 5$ 


BBSS Et re CREFBITS, 5$ 
CLRL F IRSTVALUE 


BLBC FIRSTVALUE, 7$ 
BISB2 #3, LIBSGL_CREFLAGS 
Rey #1, RO 


GETCMD. 835 231 


Be Se Ge Ge Se Be Se Se Se Se Se Ge Se Se Se Se Se Se SF Be Fe Be Se Ge Ge Se Se Be Se Se Be 


Page 48. 


(13) 


1370 | 


nS 
L18_GETCMD bu$ep-1984 01:53:15  YAN=I1 BL iss-32 v4.0-74 Page 49. 


1 
name_List 1 LIBRAR.SRCJGETCMD.832; C14) | 
1 ZSBITL ‘get_name_list' 

ROUTINE get_name_list tlist whead, qualifier_desc) = 


get 


94 
95 
38 BE 
940 9 : 
941 4 ' This Feyiine recalls CLI to get the noses of all the keys associated with 
94 9 ' a qualifier (i.e. /DELETE=modulel:module2:...:moduleN). If there are no 
Ser res keys, the image is stopped with an error. 
945 rh ! If the keys are there, they are extracted and put on a List. 
946 40 : 
947 04 MAP 
948 3 List head : REF VECTOR (2); 
949 6 BUILTIN 
950 07 INSQUE 
951 08 NULLPARAME TER; 
926 09 LOCAL 
95 he ay tmp 
954 firstvalue = 
322 WNILE cliSget_ veluet. qualifier_desc, token_desc) DO !While there are more values 
957 LOCAL 
958 te Ss, 
959 lk : REF BBLOCK; 


amb 
960 IF NOT (status = Lib “get mem (lnb$c_fixedsize + .token_desc Cdsc$w_length], 
61 nes ik)? “taALlocate memory 
THEN SIGNAL_STOP (.statu 
INSQUE (.namblk, .List — {1)); nsert in queu 
sort Cinb$b naming) = .token desc Cdsc$w -tengthy: 'Set size of name 
CHSMOVE (.namBLk Cinbsb b_naning! -token_desc (Cdsc$a -pointerd. 
Cinbd$t _nameJ); Copy the name 


967 firstvalue = false; 
968 3 

969 If .firstvalue 

970 THEN 

971 BEGIN 

972 IF .NULLPARAMETER(2 


$_novalue ) 


TE 
THEN SIGNAL_STOP ib as 
OP ib$"novalue, 1, .qualifier_desc ); 


(2) 
CL 
che SIGNAL-STOP ( | 


a ee ee ee ee ee ee ed ed ad ed aed dd ed 


=IN AAAI NANNIES BNW PIPUNINOPINIPOPUNOPUNPP 


FUN “OC OONOUS WN“ OOONOUSWHR—O 


975 ND; 
976 RETURN true 
977 END; 
O1FC 00000 GET_NAME_LIST: 
re TWORD Save R2,R3,R4,R5,R6.R7,R8 : 1395 | 
58 0000" CF 9€ 0000 MOVAB TOKEN DESC. RB : 
57 000000006 00 9€ 0000 MOV LIBSSTOP, R7 ; 
SE 04 ¢ 990 SUBL oe ; 
56 g1 DO 0001 MOVL #1. FIRSTVALUE + 1411 
8 DD 90014 1$: PUSHL R > 1412 
08 AC DD 00016 PUSHL QUALIFIER DESC ; 
00006 cf 08 FB 90019 CALLS #3, CLISGET. VALUE ; 
3 E9 OOOTE LBC ; 
SE DD 00021 PUSHL : 1417 


& 
L1B_GETCMD 1b-s0 -1984 01:53:1 AX-11 Bliss-32 V4.0-742 Page 50. L! 

yOe=000 get_name_Llist 107308-1 384 9b 88508 LIBRAR.SRCJGETCMD.B32;1 (14) | 
7E 8 3 3 MOVZ2WL TOKEN_DESC, -(SP) ; 
6F A 26 § ADDL2 #10, TSP) : 
00006 CF : Fe 0 CALLS #2 L1B_GET_MEM : 

5 5 E BLBS STATUS, : | 

0 DD 90031 PUSHL STATU + 1419 

: 04 AE pO C008 28: ROUT”. CEETTHERS ao £1420 

0% 8B 00 BE OF 003A INSGUE @NAMBLK, 84(RO) : 

8 6 DO 0003F MOVL -NAMBLK + 1421) 

09 Ad 68 90 00042 MOVB =‘ TOKEN_DESC, 9(RO) : | 

51 09 AD 9A 00046 mOVZBL 9(RO)> R + 14 
OA Ad 04 88 3! 28 O04A MOVC3 R1, a@fOKEN_DESC+4, 10(RO) t 14 

6 D4 50 CLRL F IRSTVALUE + 1424 

CO 11 00052 BRB 1$ + 1412 

2F 56 9 0054 3S: BLBC -FIRSTVALUE, 7$ + 1426 

02 6¢ 1 00057 CMPB Ss), #2 + 1429) 
0 if 005A BGEQU 4$ : 
50 01 00 0005c¢ MOVL #1, RO ; 

09 11 0005F BRB 5$ F 

50 04 00061 4$: CLRL ~— RO : 

08 AC 05 00063 TSTL BAP) : 
08 12 0066 BNEG 65 : 
50 06 0006 INCL RO ; 
0B 60 €9 0006 5$: BLBC (RO), 6$ ; 

00861104 8F DD 00 $0 PUSHL #8786180 + 1430 
67 01 FB 0007 CALLS #1, LIB$STOP : 
OE 11 00076 BRB 7$ : 

08 AC DD 00078 6$: PUSHL  QUALIFIER_DESC + 1431 
07 DD 00078 PUSHL #1 : 
00861104 8F DD 90070 PUSHL #8786180 : 
67 03 FB 0008 CALLS #3, LIBSSTOP : 
50 01 00 00086 7$: MOVL #1. RO : 
04 00089 RET : 


; Routine Size: 138 bytes, Routine Base: $CODE$S + 0754 
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See Oe ee ee ee erase 
woooono 
wr 


2333 


; Routine Size: 


; Routine Size: 


5 } ROUTINE clearsqueeze = 
IN 


! Clear the local squeeze bit 
squeeze _flag = 0: 
RETURN fF 


: } ZSBTTL ‘clearsqueeze & setsqueeze'; 
4 
4 
4 rue 

4 


1 END; 


0000 00000 somsstiramanne |: 


WOR 
0000' ee pS 4 CLRL 
50 00006 MOVL 
Be 00009 RET 
10 bytes, Routine Base: SCODE$S + O7DE 
1444 1 RO 5 Ee setsqueeze = 
1445 2 BEG 
1446 § : 
1447 i Set local squeeze bit 
1448 2 i 
1449 2 squeeze flag = 1; 
1450 2 RETURN frue 
1451 1 END: 
0000 00000 SETSQUEEZE: 
. WORD 
0000" CF 01 00 00002 MOVL 
50 01 00 00007 MOVL 
04 OOO0A RET 
11 bytes, Routine Base: S$CODES + O7E8 


1-00-1984 01:58:13 


AX=11 Blis a3e V4.0=74 
LIBRAR.SRCJGETCMD.B32; 


Save nothin 
SQUEEZE_FLA 
#1, RO 


Save nothing 
#1, SQUEEZE_FLAG 
#1, RO 


& 


Lie 


3 


SSSSessS3Z3 


; Routine Size: 


us ts 


28 bytes, 


) ss8TTL *before_date'; 
ROUTINE before_date 5 


i This routine passes the address of Lib$before_date 
to date_parse to be set 


' 

! 

! 

BEGIN 
cli$get_value(sd before, token_desc); 
date parse( Lib$before_date );~ 

ecru true; 


D; 


0000 00000 wren aga 


WO 
Q0000' CF 9F 00002 PUSHAB 
0000" CF 9F 00006 PUSHAB 
0000G CF 02 FB QOO0A CALLS 
0000G CF 9F OO0DF PUSHAB 
0000v CF 4 FB pete CALLS 
50 1 bd0 00018 MOVL 
04 00018 RET 


Routine Base: SCODE$ + 07F3 


1 ZSBTTL ‘since_date'; 


VAX=11 Bliss-32 V4.0-742 
CLIBRAR.SRCJGETCMD.B32;1 


Save nothing 
sD BEFORE 


D_BEFORE 
CLISGET VALUE 
UTBSEEF ORE BATE 


ee a RW pany ee ona 


voezo00 since_date ~300 138 93:38:08 UYBRAR’SREIGET CMD 6324 Page 133 


5 } 19 1268 } ROUTINE since date = 

3 7 \§ 1298 1 ! This routine passes the address of Lib$since_date 
: 101 1467 1! to date_parse to be set 

; 1014 1468 1! 

; 1015 1093 BEGIN 

3 Isi8 1470 cli$get_value(sd_since, token_desc); 

: 101 1471 date parse( Lib$Ssince_date ); 

; 1018 1ol6 RETURN true; 

; 1019 147 END; 


0000 00000 SINCE DATE: | 


«WORD Save nothing > 1464. 
0000" CF 9F 00002 PUSHAB TOKEN DESC : 1470) 

0000" CF 9F 00006 PUSHAB SD_SINCE : 

00006 CF 62 FB OO00A CALLS #2, CLISGET_VALUE ; 
00006 CF 9F OO000F PUSHAB LIBSSINCE_DATE > 1471. 
0000v CF 01 FB 00013 CALLS #1, DATE_PARSE : | 
50 01 pO 00018 MOVL #1. RO : 1472 

04 00018 RET : 


Routine Size: 28 bytes, Routine Base: S$COKES + O80F 


: 1020 1474 1 XSBITL ‘date_parse'; 
: 1021 1475 1 ROUTINE date_parse ( date ) = 
; Iss 1476 1 !---- 
: 102 1477 1! re 
3: 1024 1478 1°! Functional description 
: 1025 1479 1! 
: 1026 1480 1! This routine yerees the value on the /SINCE and /BEFORE 
; 1027 1481 1! ualifiers. t converts the ASCII value of the qualifier 

: 1028 1482 1! nto 64-bit system date format. The value can be a date 

: Oe) 14835 1! string (such as dd-mmm-yyyy hh:mm:ss.s) or the keywords 

; 10 1484 1! YESTERDAY or TODAY. 
; 1031 1485 7! 

: O36 1486 1 ! Output parameters 

: 103 1487 1! ; : me 

3 1034 1488 1! Lib$since_date = Date if /SINCE specified. 

; HF 1489 1! Lib$Sbefore_date = Date if /BEFORE specified. 

: 10 1490 1! 

3; 1037 1491 1 !e-<- 

; 1038 1636 BEGIN 

; 1039 149 

3; 1040 1494 BIND 

; 1061 1495 date field = .date : ref bblock; 

; 1966 1496 LOCAL 

3: 104 1497 status; ! Status return value 

3 1044 1498 

3; 1045 1499 ' . : ; . 

5 eo 1300 Convert the ASCII string into 64-bit system time format. 

3; 1048 1502 status = LibScvt_time(token_desc, date_field); 


F 6 
LIB_GETCMD 16-Sep-1984 01:53:1 AX=-11 Bliss-32 V4.0-742 P 4 
yoes date_parse 14-$ eats hi 33850 LIBRAR.SRCJGETCMD.B32;1 290 3t 


3; 10469 1503 
5 1080 1386 IF NOT status ' If error in conversion, 
4 1983 13 3 THEN GHAL STOP(. status) ' th tput | 
: J -Status); ! then o error messa 
: 1038 1209 sobs ws 

3; 1054 1208 RETURN true; 

: 1055 150 END; 


0000 00000 soins adipaape 


04 
0000" 
000000006 


000000006 


woe oO 

oO 

> 

Cc 

c 

wn 
z= BON BHM 
_—— +O Fw 


AC 
3 
$ 
01 
01 


; Routine Size: 32 bytes, Routine Base: S$CODE$ + 0828 


0 
9 
0 
0 


mn 
. 
Be Be Be Be Be Be Be Se oe 


6 
youzeoo allocate fod & initialize_fdb 16-s att fi 9}: 33: 3 A TBRAR SRE Geeche: g35: Page 43) 


3; 1057 1510 1 XSBITL ‘allocate_fbd & initialize_fdb'; | 
3 1 3 1511 1 ROUTINE allocate_fdb (fdbadr) = 

i | 1 1 BEGIN 
: 1060 151 ' 

: 1989 ! \ ; This routine allocates a file descriptor block and initializes it. 

: 106 151 LOCAL 

; 1064 184 status; 

: 1065 1518 , 

3 1208 1519 IF NOT (status = Lib_get_mem (fdbsize, .fdbadr)) ‘Allocate the FDB 

; 106 1520 2 THEN SIGNAL_STOP (.sfatus); 

; 1068 1521 initialize fdb (..fdbadr); ‘and initialize it 

3; 1069 15 § RETURN true 

; 1070 1525 1 END; 


0000 00000 ALLOCATE_FDB: 
WORD 


. Save nothing 3: 1511 
04 AC D 00002 PUSHL FDBADR g W519) 
7E 029E 8F 3C 00005 MOVZWL #670, -(SP) F 
0000G CF 02 FB OOO0A CALLS #2, (18. GET_MEM g 
09 50 €8 OO00F BLBS STATUS, 1$ ~ F 
50 DD 00012 PUSHL STATUS > 1520) 
00000000G 00 01 FB 00014 CALLS #1, LIBSSTOP 3 
04 BC DD 0001B 1$ PUSHL aF s 1521 | 
QO000V CF 01 FB QOO1E CALLS #1, INITIALIZE_FDB é 
50 01 DO 00023 MOVL #1, RO : 1522) 
04 00026 RET : W325] 
; Routine Size: 39 bytes, Routine Base: S$CODES + 0848 | 
3; 1071 1524 1 ROUTINE initialize_fdb (fdbadr) = 
$ O76 1525 BEGIN 
3; 107 1526 ! 
3: 1074 1527 This routine initializes a pre-allocated FDB 
; 1075 1528 ! 
3; 1076 1363 
3; 1077 1530 errs REF BBLOCK; 
; 1078 1531 LOCAL 
3; 1079 1336 namblk : REF BBLOCK, ‘Pointer to NAM block 
; 1080 153 rsblk REF BBLOCK; ‘Pointer to resultant name string area 
: 1081 1534 namblk = "fdbadr. Cfdb$t “neal: 'Point to NAM block part 
3 Hi 1535 rsblk = .namblk + nam$c_bln: 'Point to resultant string area 
3: 108 1336 CHSFILL (0, fdbsize, .fdbadr); 'Zero the FDB 
3: 1084 153 namblk Cnam$l_rsa] = .rsblk; 'Store RSA address 
: 1085 1338 namblk [nam$b_rss] = nam$c_maxrss; ‘And its length 
: 1086 1539 namblk Cnam$l"esa] = .rsblk+nam$c_maxrss; ‘Expanded name string goes 
: 1087 1540 namblk Cnam$b_ess] = nam$c_maxrss; ' in same place so errors 
: 1088 1541 i messages are correct. 
3; 1089 1368 namblk C(nam$b_bid) = nam$c_bid; ‘Identify it as a NAM 
; 1090 154 beens nam$b_bin) = nam$c_ “bin: bews 
3; 1091 1544 N true 
3; 1092 1545 1 


: ; VAX-11 Bliss-32 V4.0-742 Page 56. 


allocate _fbd & initialize_fdb CLIBRAR.SRCIGETCMD.B32;1 (18) | 


OOFC 00000 INITIALIZE _FDB: 


} 
WORD Save R2,R3,R4,R5,R6,R7 3 1524) 
56 04 AC 00000060 8F C1 00002 ADDL3 #64 FDBADR. NAMBLK : 1534) 
57 60 A6 9E 00008 MOVAI 96(R6) SBLK + 1535) 
029E 8F 00 bE og 02 2 20008 Moves | WO. Ch) og #670, @FDBADR : 1936 
04 Ab BS 0 O18 MOVL RSBLK 4 (NAMBLK : 1537, 
C Ab OOFF C7 9E 1 MOVAB 2 Ct A CNAMBLED : 1539 
OA A6 1 F 0 MNEGB #1, 10(NAMBLK) : 1540) 
66 2 00 6 MOVE = #2 (NAMBL 4) : 134 
01 As FF60 8F BO 00029 MOVW #65376, 1(NAMBLK) + 154 
5 1 pO 0002F MOVL #1, RO 3 1544 
04 00032 RET + 1545 


; Routine Size: 51 bytes, Routine Base: S$CODE$ + 0872 


6 
LIB_GETCMD 1b-sep-1984 01:53:1 AX=11 Bliss-32 V4.0-742 
voe=000 set_*_type 14- 3021 3ec 33850 LIBRAR.SRCIGETCMD.B32; 1 


: 1094 1 o | ZSBTTL ‘set_*_type 
: 1095 1 1 ROUTINE set_lib 4 (type, defext) = 
3 1998 1548 BEGIN 
3; 109 1549 ; 
3 1998 1329 ; This routine sets the default library type and default extension 
: 1100 1388 Pp 
; 139) 122? Lipsat typ : ner VECTOR (4); vain Up . 
3 ype = e rar e 
1108 1555 SMOVE CascSc's bin, detext tO]. det tibext 
: 1104 1556 CHSMOVE (dsc$c_s_bln, defext (2], def -fil= than 
: 1105 1557 RETURN N true 
3: 1106 1556 END; 

007C 00000 SET_LIB_TYPE: 

WORD Save R2,R3,R4,R5,R6 
0000G CF 04 AC 00 00002 MOVL TYPE, LIBSGL_TYPE 
56 08 AC DO 00008 MOVL DEFEXT, R6 
0000' CF 66 08 38 0000¢ MOVC3 #8, (R6), DEF_LIB_EXTN 
0000" CF 08 A6 08 28 00012 MOVC3 #8, 8(R6), DEF_FIC_EXTN 
50 01 00 00019 MOVL #1, RO 
04 0001C ET 

; Routine Size: 29 bytes, Routine Base: $CODE$S + O8AS 
3; 1107 1559 1 ROUTINE set_text_type = 
: 1108 1560 1! 
: 444 136) ’ This routine is called when the /text qualifier is processed. 
31111 1368 1 RETURN set_lib_type (Lib$Ss_text, Lib_txt_defext); 

0000 00000 SET_TEXT_TYPE: 

WORD Save nothi ing 
0000G CF 9F 00002 PUSHAB L1B. TXT_DEFEXT 
04 DD 00006 PUSHL 
D7 Ss AF 02 FB 00008 CALLS a, SET_LIB_TYPE 
04 0000C RET 


; Routine Size: 13 bytes, Routine Base: S$CODE$ + 08C2 


! ROUTINE set_help_type = 
' This routine is called when the /HELP qualifier is processed. 
1 RETURN set_lib_type (Lib$s_help, Lib_hlp_defext); 
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18- h. 
Eitsete sett type oaeep7188e 93:88:08 Ee TeranSaeicescmo o3o¢4 


0000 00000 SET_HELP_TYPE: 
WORD paye noth iy 


00006 fF 9F 00002 BUSHAB B_HLP_DEF 
900 PUSH. A 
CA AF > PB 0900 CALLS #2, SET_LIB_TYPE 
04 0000¢ RET 


Routine Size: 13 bytes, Routine Base: S$CODES + O8CF 


1368 } ROUTINE set_macro_type = 
130) : This routine is called when the /MACRO qualifier is processed. 
1398 1 RETURN set_lib_type (Lib$Ss_macro, Lib_mac_defext); 


0000 00000 SET_MACRO_TYPE: 
QORD 


‘ Save Hy ey 
0000G CF 9F 00002 PUSHAB LIB_MAC_DEFEXT 
02 DD 00006 PUSHL @ 
BD AF 02 FB 00008 CALLS #2, SET_LIB_TYPE 
04 0000C RET 


; Routine Size: 13 bytes, Routine Base: $CODE$ + O8DC 


13% ! ROUTINE set_object_type = 
1226 : This routine is called when the /OBJECT qualifier is processed. 
1578 1 RETURN set_lib_type (Lib$s_object, Lib_obj_defext); 


Sees Ge eee 

— a oo 
— 
Mrofrerrn 
Ounfwr 


0000 00000 set Saset ete 


.WOR ave Bo bere 
0000G CF 9F 00002 PUSHAB tie: OBJ _DEFEXT 
01 DD 00006 PUSHL 
BO AF 02 FB 00008 CALLS *2. SET_LIB_TYPE 
04 0000C RET 


Routine Size: 13 bytes, Routine Base: $CODE$S + 08E9 


ROUTINE set_shr_type = 
' 
a 


1 
1! 
' ! This routine is called when the /SHARE qualifier is processed. 
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(19) 


voezeod set_* type If: €0- 19h 93:38:48 a taRA aesh e3cef ch: 833! { 


; 1131 1583 1 RETURN set_lib_type (Lib$Ss_shrstb, Lib_shr_defext); 


0000 00000 SET_sHR, TYPE: 


Ww hin 
00006 ¢F 9F 90 PUSHAB tbs shRber xT 
at a G5 po 89 Sie ER pees 
04 0000C RET = = 


; Routine Size: 13 bytes, Routine Base: S$CODES + O8F6 


; 1132 1584 1 


rage 82 


L] 


6 
LEGG IESeem49R OU:SE:F YMMSIL BLisgc32 4 05249 


11 1585 1 ROUTINE clierror ( errorcode ) : novalue = 
1 5 : $ BEGIN 
11 ; 1588 : This routine is called by the result parser if it detects any 
1138 1388 : error in the command. REQUESTDESC is the address of the current 
1139 1590 ' parameter descriptor and ERRORCODE is the encoded reason for 
Bh 138% } the error. 
1146 1 38 SIGNAL_STOP (.errorcode); !Print error message and quit 
114 1594 RETURN; 
1144 1595 1 END; 
0000 00000 CLIERROR: ; 
P Save nothing 
04 AC DD 0000 PUSHL ERRORCODE 
000000006 00 01 FB 0000 CALLS #1, LIBSSTOP 
04 0000C RET 


Routine Size: 13 bytes, Routine Base: $CODE$ + 0903 


1145 1596 1 END ! Of module 
1146 1597 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 540 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SGLOBAL$ 12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, biookheiod bE bop Lt 
SOWNS 1116 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
_LIBSKEYOS 32 NOVEC,NOWRT, RD, E, SHR, LCL, REL, CON, PIC,ALIGN(1) 
_LIBSSTATES 371 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
LIBSKEY1$ 127%. NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
SCODES 2320 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 103 1 581 60:01 .9 
~$522$0UA 8:CSYSLIB cLImAC C8351 14 8 9 0:00.1 
$255$DUA28: (SYSLIBJTPAMAC.L32;1 42 2 5 14 00:00.1 
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VOe=800 = set_s_type IESS0c1984 QUSGEGE  HeMaDdaP ieee 838 Past (28) 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETCMD/OBJ=OBU$:GETCMD MSRC$:GETCMD/UPDATE=(ENH$:GETCMD) 
; Size: 2528 C qe, + 2194 data bytes 

un Time: 1:07°7 


3 ke Time: :18.8 
3 Lines/CPU Min: 41 

3 Lexemes/CPU-Min: 38989 

; peme | Used: 362 pages 
3 a 


; Compilation Complete 


AH-BT13A-SE , DIGITAL EQUIPMENT CORPORATION 
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